MP-177 



Z-80 ESF FORTH VER 



THIS IMPLEMENTATION OF FORTH REPESENTS A TRANSLATION OF 
THE FORTH INTEREST GROUP 8080 VERSION. AS MUCH AS POSSIBLE, 
HG-FORTH COMPATABILITY HAS BEEN MAINTAINED 



VERN TALLMAN 
P.O. BOX 61326 
SUNNYVALE, CA 94088 



MORE INFORMATION REGARDING FIG-FORTH AND THE FORTH INTEREST 
-ROUP MAY BE OBTAINED BY WRITING: 



FORTH INTEREST GROUP 

P.O. BOX 1105 

SAN CARLOS, CA 94070 



THIS IMPLEMENTION WAS ACCOMPLISHED USING MICROSOFT'S 
EDITOR ASSEMBLER+. MACROS WERE UTILIZED WHERE MULTIPLE WORD 
DEFINITIONS WERE DESIRED ON A SINGLE LINE. 



00010 


DW 


MACRO 


*W1 






00020 




DEFW 


*W1 






00030 




ENDM 








000-40 


DW2 


MACRO 


#W1,#W2 






00050 
00060 




DEFW 
DEFW 


#W1 
#W2 






00070 




ENDM 








00080 


DW3 


MACRO 


#W1,*W2,#W3 






00090 




DEFW 


#W1 






00100 




DEFW 


#W2 






00110 




DEFW 


*W3 






00120 




ENDM 








00130 


DW4 


MACRO 


#W1,*W2,#W3, 


,*W4 




00140 




DEFW 


*W1 






00150 




DEFW 


*W2 






001G0 




DEFW 


#W3 






00170 




DEFW 


*W4 






00180 




ENDM 








00190 


DW5 


MACRO 


#W1,#W2,*W3, 


*W4, 


,*W5 


00200 




DEFW 


#W1 






00210 




DEFW 


#W2 






00220 




DEFW 


#W3 






00230 




DEFW 


#W4 






00240 




DEFW 


#W5 






00250 




ENDM 








00260 


DWG 


MACRO 


#W1,*W2,#W3, 


,#W4, 


, #W5,#W6 


00270 




DEFW 


*W1 






00280 




DEFW 


#W2 






00290 




DEFW 


#W3 






00300 




DEFW 


#W4 






00310 




DEFW 


#W5 






00320 




DEFW 


#W6 






00330 




ENDM 








00340 


DW7 


MACRO 


#W1,#W2,#W3, 


#W4, 


#W5,#W6,*W7 


00350 




DEFW 


*W1 






00380 




DEFW 


*W2 






00370 




DEFW 


#W3 






00380 




DEFW 


#W4 






00390 




DEFW 


#W5 






00400 




DEFW 


#WG 






00410 




DEFW 


#W7 






00420 




ENDM 








00430 


Dwe 


MACRO 


#W1,*W2,#W3, 


♦W4, 


#W5,#WS,#W7,*W8 


00440 




DEFW 


#W1 






00450 




DEFW 


fW2 






00480 




DEFW 


#W3 






00470 




DEFW 


#W4 






00480 




DEFW 


*W5 






00490 




DEFW 


#W6 






00500 




DEFW 


*W7 






00510 




DEFW 


*W8 






00520 




ENDM 








00530 


DB 


MACRO 


#B1 






00540 




DEFB 


#B1 






00550 




ENDM 













00560 


MB 


MACRO 


*B1 






00570 




DEFB 


' §B1' +80H 






00580 




ENDM 








00590 


DM 


MACRO 


*B1 






00600 




DEFM 


' *B1' 






00610 




ENDM 








00620 


HD 


MACRO 


#B1,#B2,#B3,#W1 






00630 




DEFB 


♦B1+80H 






00640 




DEFM 


' #B2' 






00650 




DEFB 


' *B3' +30H 






00660 




DEFW 


#W1 






00670 




ENDM 








00680 


♦MLIST 


ON 




0801 




006S0 


RELEftS 


EQU 


1 


0000 




00700 


REUISI 


EQU 





0000 




00710 
00720 


USRUER 

» 


EQU 









00730 


; ftSCII 


CHARS 


TO BE USED 






00740 


* 






0020 




00750 


ftBL 


EQU 


20H 


000D 




00760 


ftCR 


EQU 


0DH 


802E 




00770 


ftDOT 


EQU 


2EH 


0007 




00780 


BELL 


EQU 


07H 


000S 




00790 


BSIN 


EQU 


08H 


0008 




00800 


BSOUT 


EQU 


08H 


0010 




00810 


DLE 


EQU 


10H 


000A 




00820 


LF 


EQU 


0AH 


000C 




00830 
00840 


FF 


EQU 


0CH 






00850 


; MEMORY ALLOCATION 






00860 


i 






7FF0 




00870 


EM 


EQU 


07FF0H 


0003 




00880 


N5CR 


EQU 


3 


0400 




00890 


KBBUF 


EQU 


1024 


0040 




00900 


US 


EQU 


40H 


00A0 




00910 


RTS 


EQU 


0A0H 


0404 




00920 


C0 


EQU 


KBBUF+4 


0003 




00930 


NBUF 


EQU 


NSCR*400H/KBBUF 


73E4 




00940 


BUF1 


EQU 


EM-C0*NBUF 


0001 




00950 


BSCRE 


EQU 


400HVKBBUF 


73R4 




00960 


INITR0 


EQU 


BUF1-US 


7304 




00970 
00980 
00990 
01000 


INITS0 

* 
f 
I 


EQU 


INITR0-RTS 


4350 




01010 




ORG 


4350H 


4350 


00 


01020 


ORIG 


NOP 




4351 


C3ft552 


01030 




JP 


CLD 


4354 


00 


01040 




NOP 




4355 


C38B52 


01050 




JP 


WRM 


4358 




01060 




DB 


RELEAS 


4358 


01 






DEFB 
ENDM 


RELEAS 


4359 




01070 




DB 


REUISI 


4359 


00 






DEFB 
ENDM 


REUISI 


435ft 




01080 




DB 


USRUER 


435ft 


00 






DEFB 


USRUER 



TOP OF MEM + 1 = LIMIT 



BYTES/DISK BUFFER 



435B 




01090 




435B 


0E 




435C 




01100 


435C 


53SB 




435E 




01110 


435E 


0800 




4360 




01120 


4360 


A473 


01130 ; 
01140 ; 
01150 ; 
01160 ; 


4362 




01170 


TH+6 






4362 


0473 




4364 


A473 




4366 


0473 




4368 


1F00 




436A 


0000 




436C 


5E5B 




436E 


5E5B 




4370 


0952 


01180 ; 
01130 ; 
01200 ; 


4372 




01210 


4372 


0000 




4374 


50B2 








01220 








01230 








01240 








01250 








01260 








01270 








01280 








01290 








01300 








01310 ' 








01320 








01330 ; 








01340 ; 








01350 








01360 








01370 








01380 








01390 








01400 




4376 




01410 UP 


4376 


R473 







ENDM 




DB 


0EH 


DEFB 


3EH 


ENDM 




DW 


TflSK-7 


DEFW 


TASK -7 


ENDM 




DW 


BSIN 


DEFW 


BSIN 


ENDM 




DW 


INITR0 


DEFW 


INITR0 


ENDM 





FOLLOWING USED BY "COLD" 

MUST BE IN SAME ORDER AS USER UARIABLES 



DW8 



INITS0,INITR0,INITS0,1FH,0, INITDP. INITDP. FOR 



DEFW 


INITS0 


DEFW 


INITR0 


DEFW 


INITS0 


DEFW 


1FH 


DEFW 





DEFW 


INITDP 


DEFW 


INITDP 


DEFW 


FORTH+6 


ENDM 





END 



OF DATA USED BY "COLD* 

DW2 , 0B250H 

DEFW 

DEFW 0B250H 
ENDM 

FORTH REGISTERS 

FORTH 2-80 FORTH PRESERUATION RULES 

IP BC SHOULD BE PRESERUED ACROSS FORTH 

WORDS 
W DE SOMETIMES OUTPUT FROM NEXT 

MAY BE ALTERED BEFORE JMPING TO NEXT 



SP 



SP 



HL 



INPUT ONLY WHEN DPUSH CALLED 
SHOULD BE USED ONLY AS DATA STACK 
ACROSS FORTH WORDS 
MAY BE USED WITHIN FORTH WORDS 

IF RESTORED BEFORE NEXT 
NEUER OUTPUT FROM NEXT 
INPUT ONLY WHEN HPUSH CALLED 



DW 

DEFW 

ENDM 



INITR0 
INITR0 



4378 
4378 A473 



437R D5 
437B E5 
437C 0ft 
437D 03 
437E 6F 
437F 0fl 

4380 03 

4381 67 

4382 5E 

4383 23 

4384 56 

4385 EB 

4386 E9 



01420 RPP 



01430 

01440 

01450 

014G0 

01470 

01480 

01490 

01500 

01510 

01520 

01530 

01540 

01550 

01560 

01570 

01580 

01590 

01600 

01610 

01620 

01630 

01640 

01650 

01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 DPUSH 

01760 HPU5H 

01770 NEXT 

01780 

01790 

01800 

01810 

01820 

01830 NEXT1 

01840 

01850 

01860 

01870 

01880 

01890 

01900 

01910 

01920 

01930 

01940 

01950 

01960 

01970 



DW 

DEFW 

ENDM 



INITR0 
INITR0 



COMMENT CONVENTIONS 



NAME 

(NAME) • 
((NAME) ) = 

CFft 
LFft 
NFft 
PFft 

SI 
S2 
Rl 
R2 

LB 
HB 
LW 
HW 



ADDRESS OF NftME 
CONTENTS ftT NftME 
INDIRECT CONTENTS 

ADDRESS OF CODE FIELD 

ADDRESS OF LINK FIELD 

ADDR OF START OF NAME FIELD 

ADDR OF START OF PARAMETER FIELD 

ADDR OF 1ST WORD ON PARAMETER STACK 

2ND 
ADDR OF 1ST WORD OF RETURN STACK 

ZND 

LOW BYTE 
HIGH BYTE . 
LOW WORD 
HIGH WORD 



THE FORTH ADDRESS INTERPRETER 
THE UIRTUAL MACHINE 
(POST INCREMENTING OERSION) 



PUSH 

PUSH 

LD 

INC 

LD 

LD 

INC 

LD 

LD 

INC 

LD 

EX 

JP 



DE 

HL 

A, (BO 

BC 

L,A 

A,(BC) 

BC 

H,A 

E,(HL) 

HL 

D , ( HL) 

DE.HL 

(HL) 



(W) <- ( ( IP) ) 
(IP) <- (IP)+2 



(HL) <- CFA 
( PC ) < - ( ( W ) ) 



NOTE: (DE) - CFA+1 



FORTH DICTIONARY FORMAT 

ADDRESS NAME BYTE CONTENTS 

NFA NAME FIELD 



1PS<LEN> P-PREC.S-SMUDGE 
0CHARN 







01880 




LFR 


LINK FIELD LB PREU. WORDS NFR 






01380 ' 






HB 






02000 


LRBEL 


CFR 


CODE FIELD LB RDDR CPU CODE 






02010 






HB 






02020 




PFR 


PRRRMETER 1ST PRRRMETER BYTE 






02030 






FIELD 






02040 


1 ===== 


:== = = « = = 


====-============================== 






02050 








4387 




02060 DP0 


HD 


3.LI.T.0 


4387 


83 






DEFB 


3+80H 


4388 


4C 






DEFM 


' LI' 


4389 


43 










438R 


D4 






DEFB 


' T' +80H 


438B 


0000 






DEFW 
ENDM 





438D 




02070 LIT 


DW 


*+2 ; SI <- ((IP)) 


438D 


8F43 






DEFW 
ENDM 


»+2 


438F 


0R 


02080 




LD 


R.CBC) ; (HL) <- ((IP)) = LITERAL 


4390 


03 


02090 




INC 


BC ; (IP) - (IP)+2 


4381 


6F 


02100 




LD 


L.R ; L - LB 


4382 


0R 


02110 




LD 


A,(BC) 


4383 


03 


02120 




INC 


BC 


4384 


87 


02130 




LD 


H,R ; H = HB 


4385 


18E4 


02140 
02150 ; 




JR 


HPUSH ; (81) <- (HL) 


4337 




02160 




HD 


7,EXECUT,E,LIT-6 


4387 


87 






DEFB 


7+80H 


4388 


45 






DEFM 


' EXECUT' 


4388 


58 










438R 


45 










438B 


43 










438C 


55 










438D 


54 










439E 


C5 






DEFB 


' E' +80H 


433F 


8743 






DEFW 
ENDM 


LIT-6 


43A1 




02170 EXEC 


DW 


S+2 


43R1 


R343 






DEFW 
ENDM 


S+2 


43R3 


El 


02180 




POP 


HL 


43R4 


18DC 


02180 
02200 • 




JR 


NEXT1 


43R6 




02210 




HD 


6 , BRflNC , H , EXEC - AH 


43R6 


86 






DEFB 


6+80H 


43fl7 


42 






DEFM 


' BRflNC 


43RS 


52 










43R8 


41 










43AA 


4E 










43RB 


43 










43RC 


CS 






DEFB 


' H' +80H 


43RD 


3743 






DEFW 

ENDM 


EXEC -0 AH 


43RF 




02220 BRRN 


DW 


S+2 ; (IP) <- (IP) + ((IP)) 


43RF 


B143 






DEFW 
ENDM 


S+2 


43B1 


60 


02230 BRRN1 


LD 


H,B ; (HL) <- (IP) 


43B2 


68 


02240 




LD 


L,C 



43B3 5E 
43B4 23 
43B5 56 
43BB 2B 
43B7 13 
43B8 4D 
43B9 44 
43BFI 18C0 

43BC 
43BC 87 
43BD 30 
43BE 42 
43BF 52 
43C0 41 
43C1 4E 
43C2 43 
43C3 C8 
43C4 0643 

43C6 
43C6 C843 

43C8 El 

43C9 7D 

43CA B4 

43CB 28E4 

43CD 03 

43CE 83 

43CF 18AB 

43D1 

43D1 86 

43D2 28 

43D3 4C 

43D4 4F 

43D5 4F 

4306 50 

43D7 (=19 

43D8 BC43 

43DA 
43DA DC43 



02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 



02350 ZBRAN 



02360 
02370 
02380 
02390 
02400 
02410 
82420 
02430 
02440 



43DC 
43DF 
43E2 
43E3 
43E4 
43E5 
43E6 
43E7 
43E8 
43E9 
43EA 
43EB 
43EC 
43ED 



110100 

2A7843 

7E 

83 

77 

5F 

23 

7E 

8A 

77 

23 

14 

15 

57 



02450 XL00P 



02460 

02470 XL001 

02480 

02490 

02500 

02510 

02520 

02530 

02540 

02550 

02560 

02570 

02580 

02590 



LD 


E,(HL) ; 


(DE) <- ( ( IP)) - BRAN 


INC 


HL 




LD 


D , ( HL) 




DEC 


HL 




ADD 


HL , DE 


(HL) <- (HL) + ( (IP) ) 


LD 


C,L ; 


(IP) <- (HL) 


LD 


B,H 




JR 


NEXT 




HD 


7.0BRANC, 


H.BRAN-9 


DEFB 


7+80H 




DEFM 


' 8BRANC 





BRANCH OFFSET 



DEFB 

DEFW 

ENDM 

DM 

DEFW 

ENDM 

POP 

LD 

OR 

JR 

INC 

INC 

JR 

HD 

DEFB 

DEFM 



DEFB 

DEFW 

ENDM 

DW 

DEFW 

ENDM 

LD 

LD 

LD 

HDD 

LD 

LD 

INC 

LD 

ADC 

LD 

INC 

INC 

DEC 

LD 



' H' +88H 
BRAN -9 

»+2 
»+2 

HL 

A.L 

H 

Z.BRAN1 

BC 

BC 

NEXT 



IF (S1)=0 THEN BRANCH 
ELSE SKIP OFFSET 



6 , ( LOOP , ) , ZBRAN- 0AH 

6+80H 

' ( LOOP' 



' )' +80H 
ZBRAN -0AH 

S+2 
S+2 

DE.l 

HL.(RPP) 

A , ( HL ) 

A,E 

( HL ) , A 

E,A 

HL 

A,(HL) 

A,D 

( HL ) , A 

HL 

D 

D 

D,A 



; (DE) <- INCREMENT 
; ((HD) - INDEX 



; ((HD) - LIMIT 



; (DE) <- NEW INDEX 



43EE FRF843 
43F1 7B 
43F2 96 
43F3 7ft 
43F4 23 
43F5 9E 
43F6 1805 
43F8 7E 
43F8 93 
43FFI 23 
43FB 7E 
43FC 9ft 

43FD FAB143 

4400 23 

4401 227843 

4404 03 

4405 03 

4406 C37C43 

4409 

4409 87 
440ft 28 
440B 2B 
440C 4C 
440D 4F 
440E 4F 
440F 50 

4410 fl9 

4411 D143 

4413 
4413 1544 

4415 Dl 

4416 18C7 

4418 

4418 84 

4419 28 
441ft 44 
441B 4F 
441C ft9 
44 ID 0944 

441F 
441F 2144 

4421 2A7843 

4424 2B 

4425 2B 

4426 2B 

4427 2B 

4428 227843 
442B Dl 
442C 73 
442D 23 
442E 72 



02600 

02610 

02620 

02630 

02640 

02650 

02660 

02670 XL002 

02680 

02690 

02700 

02710 

02720 ; 

02730 XL003 

02740 

02750 

02760 

02770 

02780 

02790 ; 

02800 



02818 XPLOO 



02820 
02830 
02840 
02850 



02860 XDO 



02870 
02880 
02890 
02900 
02910 
02920 
02930 
02940 
02950 
02960 



JP 

LD 

SUB 

LD 

INC 

SBC 

JR 

LD 

SUB 

INC 

LD 

SBC 

JP 

INC 

LD 

INC 

INC 

JP 

HD 

DEFB 

DEFM 



DEFB 

DEFW 

ENDM 

DW 

DEFW 

ENDM 

POP 

JR 

HD 

DEFB 

DEFM 



DEFB 

DEFW 

ENDM 

DW 

DEFW 

ENDM 

LD 

DEC 

DEC 

DEC 

DEC 

LD 

POP 

LD 

INC 

LD 



M.XL002 

ft.E 

(HL) 

fl,D 

HL 

ft.(HL) 

XL003 

ft.CHL) 

E 

HL 

A,(HL) 

ft,D 

M.BRAN1 

HL 

( RPP ) , HL 

BC 

BC 

NEXT 



IF INCR > 

THEN (ft) <- INDEX 



LIMIT 



ELSE (ft) <- LIMIT - INDEX 



IF (ft) < 

THEN LOOP AGAIN 
ELSE DONE 
DISCARD Rl & R2 
SKIP BRANCH OFFSET 



7,<+L00P, ),XL00P-9 

7+80H 

' C+LOOP' 



' )* +80H 
XL00P-9 

S+2 
f+2 

DE 
XLOOl 



; (DE) <- INCR 



4, (DO, ),XPLOO-0AH 

4+80H 

' (DO' 



' )' +80H 
XPLOO -0AH 

S+2 

S+2 

HL.(RPP) 

HL 

HL 

HL 

HL 

( RPP ) , HL 

DE 

(HL),E 

HL 

( HL ) , D 



; (RP) <- (RP) - 4 



; (Rl) <- (SI) 



INIT INDEX 



442F 


Dl 


02970 


POP 


DE 




4430 


23 


02980 


INC 


HL 




4431 


73 


02990 


LD 


( HL ) , E 




4432 


23 


03000 


INC 


HL 




4433 


72 


03010 


LD 


( HL) , D 




4434 


C37C43 


03020 
03030 ; 


JP 


NEXT 




4437 




03040 


DB 


81H 




4437 


81 




DEFB 
ENDM 


81H 




4438 




03050 


MB 


I 




4438 


C9 




DEFB 
ENDM 


' I' +80H 




4439 




03060 


DW 


XDO-7 




4439 


1844 




DEFW 
ENDM 


XDO-7 




443B 




03070 IDO 


DW 


*+2 




GED 












443B 


3D44 




DEFW 
ENDM 


S+2 




443D 


2A7843 


03080 


LD 


HL.(RPP) 




4440 


5E 


03090 


LD 


E.CHL) 




4441 


23 


03100 


INC 


HL 




4442 


56 


03110 


LD 


D,(HL) 




4443 


D5 


03120 


PUSH 


DE 




4444 


C37C43 


03130 
03140 ; 


JP 


NEXT 




4447 




03150 


HD 


5,DIGI,T,ID0-4 


4447 


85 




DEFB 


5+80H 




4448 


44 




DEFM 


' DIGI' 




4449 


49 










444A 


47 










444B 


49 










444C 


D4 




DEFB 


' T* +80H 




444D 


3744 




DEFW 
ENDM 


IDO-4 




444F 




03168 DIGIT 


DW 


*+2 




444F 


5144 




DEFW 
ENDM 


S+2 




4451 


El 


03170 


POP 


HL 




44S2 


Dl 


03180 


POP 


DE 




4453 


7B 


03190 


LD 


A,E 




4454 


D630 


03200 


SUB 


30H 




4455 


FA7044 


03210 


JP 


M.DIGI2 




4459 


FE0A 


03220 


CP 


0AH 




445B 


FA6544 


03230 


JP 


M.DIGIl 




445E 


D607 


03240 


SUB 


7 




4460 


FE0A 


03250 


CP 


0AH 




4462 


FA7044 


03260 
03270 ; 


JP 


M.DIGI2 




A CHR 










4465 


BD 


03280 DIGI1 


CP 


L 




4466 


F27044 


03290 
03300 ; 


JP 


P.DIGI2 




4469 


5F 


03310 


LD 


E,A 




IGIT 












446A 


210100 


03320 


LD 


HL, 1 




446D 


C37A43 


03330 


JP 


DPUSH 





(R2) <- (52) 



LIMIT 



(SI) <- (Rl) 



(Rl) LINCHPIN 



(DE) <- (Rl) 



(SI) <- (DE) 



; (L) <- (Sl)LB = ASCII CHR 
; (DE) <- (S2) - BASE VALUE 

; IF CHR - "0" 

; AND IF CHR > "9- 

; AND IF CHR >- "A" 

THEN VALID NUMERIC OR ALPH 

; IF < BASE UALUE 

THEN VALID DIGIT CHR 
; (S2) <- (DE) - CONVERTED D 

; (SI) <- TRUE 



4470 6C 

4471 C37B43 

4474 

4474 86 

4475 28 

4476 46 

4477 49 

4478 4E 

4479 44 
447A A9 
447B 4744 

447D 
447D 7F44 

447F Dl 
4488 El 

4481 E5 
ITERATION 

4482 1R 

4483 FIE 



83340 ; 
03350 DIGI2 
03360 
03370 ; 
03380 



03390 PFIND 



03400 

03410 PFIN1 
03420 

03430 
03440 



LD 
JP 

HD 

DEFB 

DEFM 



DEFB 

DEFW 

ENDM 

DW 

DEFW 

ENDM 

POP 

POP 

PUSH 

LD 
XOR 



L,H ; 

HPUSH 

6, (FIND, ),DIGIT-8 

6+80H 

' (FIND' 



ELSE INUALID DIGIT CHR 
(HL) <- FRLSE 
(SI) <- FRLSE 



' )' +80H 
DIGIT-8 

*+2 
S+2 

DE 
HL 
HL 

A,(DE) 
(HL) 



(DE) <- NFfl 

(HL) <- STRING RDDR 

SRUE STRING RDDR FOR NEXT 



; CHECK LENGTHS & SMUDGE BIT 



4484 EG3F 
4486 201F 

R 

4488 23 
TRING 

4489 13 
F 

448R 1R 
448B RE 
448C 87 
448D 2016 
448F 30F7 
4491 210500 
4484 19 

4495 E3 

= NFR 

4496 IB 

4497 lfl 

4498 B7 

4499 F29644 
449C 5F 
449D 1600 
449F 210100 
44A2 C37A43 

44A5 3806 
44R7 13 
44A8 lfl 
44R9 B7 
44AR F2A744 
44RD 13 
44AE EB 



03450 AND 

03460 JR 

03470 ; 

03480 PFIN2 INC 

03490 INC 

03500 LD 

03510 XOR 

03520 RDD 

03530 JR 

83540 JR 

03550 LD 

03560 ADD 

83570 EX 
03580 ; 

03590 PFIN6 

03600 

03610 

03620 

03630 

03640 

03650 

03660 

03670 ; 

83680 PFIN3 JR 

03690 PFIN4 INC 

03700 LD 

03710 OR 

03720 JP 

03730 PFIN5 INC 

03740 EX 



3FH 
NZ.PFIN4 



HL 

DE 

A , ( DE ) 
(HL) 
A, A 

NZ.PFIN3 
NC,PFIN2 
HL.5 
HL.DE 
( SP ) , HL 



DEC DE 

LD A,(DE) 

OR A 

JP P.PFIN6 

LD E,A 

LD D,0 

LD HL.l 

JP DPUSH 

ABOOE NF NOT A MATCH, 

C.PFIN5 

DE 

A,(DE) 

A 

P.PFIN4 

DE 

DE.HL 



; LENGTHS DIFFERENT 
LENGTHS MATCH. CHECK ERCH CH 

; (HL) <- RDDR NEXT CHR IN S 

; (DE) <- RDDR NEXT CHR IN N 



NO MRTCH 

MATCH SO FAR. LOOP AGAIN 

STRING MATCHES 

( ( SP ) ) < - PFA 



BACK UP TO LENGTH BYTE OF NF 



; IF MSB-1 THEN ( DE ) = NFA 

; (DE) <- LENGTH BYTE 

; (HL) <- TRUE 

; RETURN. NF FOUND 

TRY ANOTHER 

; IF NOT END OF NF 

; THEN FIND END OF NF 



; (DE) <- LFA 



44AF 


5E 


03750 


LD 


E,(HL) 


44B0 


23 


03760 


INC 


HL 


44B1 


56 


03770 


LD 


D,(HL) 


44B2 


7A 


03780 


LD 


A,D 


44B3 


B3 


03790 


OR 


E 


44B4 


20CA 


03800 
03810 ; 


JR 


NZ.PFIN1 


44BG 


El 


03820 


POP 


HL 


44B7 


210000 


03830 


LD 


HL,0 


44BR 


C37B43 


03840" 
03850 ; 


JP 


HPUSH 


44BD 




03860 


HD 


7.ENCL0S 


44BD 


87 




DEFB 


7+80H 


44BE 


45 




DEFM 


' ENCLOS' 


44BF 


4E 








44C0 


43 








44C1 


4C 








44C2 


4F 








44C3 


53 








44C4 


C5 




DEFB 


' E' +80H 


44C5 


7444 




DEFW 
ENDM 


PFIND-9 


44C7 




03870 ENCL 


DW 


«+2 


44C7 


C944 




DEFW 
ENDM 


S+2 


44C9 


Dl 


03880 


POP 


DE 


44CA 


El 


03890 


POP 


HL 


44CB 


E5 


03900 


PUSH 


HL 


44CC 


7B 


03910 


LD 


A.E 


44CD 


57 


03920 


LD 


D,A 


44CE 


1EFF 


03930 


LD 


E , 0FFH 


44D0 


2B 


03940 


DEC 


HL 


S 
44D1 




03950 ; 






23 


03960 ENCL1 


INC 


HL 


44D2 


1C 


03970 


INC 


E 


44D3 


BE 


03980 


CP 


(HL) 


44D4 


28FB 


03990 


JR 


Z.ENCL1 


44D6 


1600 


04000 


LD 


D,0 


-DELIM 








44D8 


D5 


04010 


PUSH 


DE 


44D9 


57 


04020 


LD 


D,A 


44DA 


7E 


04030 


LD 


A.CHL) 


44DB 


ft! 


04040 


AND 


ft 


44DC 


2009 


04050 


JR 


NZ.ENCL2 


44DE 

E 

44E0 


1600 


04060 


LD 


D,0 


1C 


04070 


INC 


E 


44E1 


D5 


04080 


PUSH 


DE 


44E2 


ID 


04090 


DEC 


E 


44E3 


D5 


04100 


PUSH 


DE 


44E4 


C37C43 


04110 

04120 ; 


JP 


NEXT 

1 


44E7 


7ft 


04130 ENCL2 


LD 


A,D 


44E8 


23 


04140 


INC 


HL 


44E9 


1C 


04150 


INC 


E 


44EA 


BE 


04160 


CP 


(HL) 


44EB 


280B 


04170 


JR 


Z.ENCL4 



; IF (LFA) <> 
I THEN TRY PREU. DICT. DEF. 
ELSE END OF DICTIONARY 

I (HL) <- FRLSE 
NO MATCH 



(DE) <- (SI) 
(HL) <- (S2) 



DELIM 
ADDR TEXT 



; (D) <- DELIM CHR 

; INIT. CHR OFFSET CNT 

SKIP OYER LEADING DELIM. CHR 



; IF TEXT CHR = DELIM CHR 
; LOOP AGAIN 
ELSE S3 <- (E) - OFFSET TO 1ST NON 



(D) <- DELIM CHR 
IF - NULL 



THEN (S2) <- OFFSET TO BYT 

FOLLOWING NULL 
( SI ) < - OFFSET TO NULL 



ELSE TEXT HAS NON-DELIM & NON -NULL 
(A) <- DELIM CHR 
(HL) <- ADDR NEXT CHR 
(E) <- OFFSET TO NEXT CHR 
IF NEXT CHR <> DELIM 



44ED 7E 
44EE R7 
44EF 20F6 

44F1 1600 

L 

44F3 D5 

44F4 D5 

44F5 C37C43 

44F8 1S00 

44FR D5 
44FB 1C 

44FC D5 
44FD C37C43 

4500 

4500 84 

4501 45 

4502 4D 

4503 49 

4504 D4 

4505 BD44 



4507 
4507 
4509 
450B 
4S0D 
450F 
4511 



2448 
5957 
RR48 
8149 
8547 
5B46 



4513 

4513 83 

4514 4B 

4515 45 
451G D9 
4517 0045 

4519 

4519 1B45 

45 IB C3GB57 

451E 
451E 89 
451F 3F 

4520 54 

4521 45 

4522 52 

4523 4D 

4524 49 

4525 4E 

4526 41 

4527 CC 



04180 
04190 
04200 
04210 ; 
04220 ENCL3 

04230 
04240 
04250 
04260 ; 
04270 ENCL4 
04280 ; 
04290 
04300 
04310 ; 
04320 
04330 
04340 ; 
04350 



04360 EMIT 



04370 
04380 



04390 KEY 



04400 
04410 
04420 



LD 

AND 

JR 

LD 

PU5H 
PUSH 
JP 

LD 

PUSH 
INC 

PUSH 
JP 

HD 

DEFB 

DEFM 



DEFB 

DEFW 

ENDM 

DW6 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

ENDM 

HD 

DEFB 

DEFM 

DEFB 

DEFW 

ENDM 

DW 

DEFW 

ENDM 

JP 

HD 

DEFB 

DEFM 



fl,(HL> 

ft 

NZ.ENCL2 

D,0 

DE 
DE 
NEXT 

D,0 

DE 

E 

DE 
NEXT 



; & IF NEXT CHR <> NULL 

; THEN CONT. 

ELSE CHR « NULL 

; (S2),(S1) <- OFFSET TO NUL 



ELSE CHR = DELIM CHR 
; (S2) <- OFFSET TO BYTE 
FOLLOWING TEXT 

; (SI) <- OFFSET TO 2 BYTES 
RFTER END 



4.EMI.T.ENCL-0RH 

4+80H 

' EMI' 



' T' +80H 
ENCL-0RH 

DOCOL, PEMIT, ONE, OUTT, PSTOR, SEMIS 

DOCOL 

PEMIT 

ONE 

OUTT 

PSTOR 

SEMIS 



3,KE,Y,EMIT-7 

3+80H 

' KE' 

' Y* +B0H 
EMIT-7 

S+2 
S+2 

PKEY 

9 , 7TERMINR , L , KEY-6 

9+80H 

' 7TERMINR' 



DEFB 



L' +80H 



4528 


1345 




DEFW 
ENDM 


KEY -6 


452FI 




04430 QTERM 


DM 


S+2 


452ft 


2C45 




DEFW 
ENDM 


1+2 


452C 


210000 


04440 


LD 


HL,0 


452F 


C37657 


04450 
04460 ; 


JP 


PQTER 


4532 




04470 


HD 


2,C,R,QTERM-0CH 


4532 


82 




DEFB 


2+80H 


4533 


43 




DEFM 


' C 


4534 


D2 




DEFB 


' R' +80H 


4535 


1E45 




DEFW 
ENDM 


QTERM -0CH 


4537 




04480 CR 


DW 


S+2 


4537 


3945 




DEFW 
ENDM 


S+2 


4539 


C38B57 


04490 
04500 ; 


JP 


PCR 


453C 




04510 


HD 


5,CM0U,E,CR-5 


453C 


85 




DEFB 


5+80H 


453D 


43 




DEFM 


' CMOU J 


453E 


4D 








453F 


4F 








4540 


56 








4541 


C5 




DEFB 


' E' +88H 


4542 


3245 




DEFW 
ENDM 


CR-5 


4544 




04528 CMOUE 


DW 


S+2 


4544 


4645 




DEFW 
ENDM 


S+2 


4546 


69 


04530 


LD 


L.C 


4547 


60 


04540 


LD 


H,B 


454S 


CI 


04550 


POP 


BC 


4549 


Dl 


04560 


POP 


DE 


4S4A 


E3 


04570 


EX 


( SP ) , HL 


454B 


EDB0 


04580 


LDIR 




454D 


CI 


04590 


POP 


BC 


454E 


C37C43 


04600 
04610 ; 


JP 


NEXT 


4551 




04620 


HD 


2,U,*,CM0UE-8 


4551 


82 




DEFB 


2+80H 


4552 


55 




DEFM 


' U J 


4553 


ftfl 




DEFB 


' *' +80H 


4554 


3C45 




DEFW 
ENDM 


CMOUE -8 


4556 




04630 USTftR 


DW 


S+2 


4556 


5845 




DEFW 
ENDM 


S+2 


4558 


Dl 


04640 


POP 


DE 


4559 


El 


04650 


POP 


HL 


455ft 


C5 


04660 


PUSH 


BC 


455B 


44 


04670 


LD 


B,H 


455C 


7D 


04680 


LD 


fl.L 


455D 


CD7445 


04690 
04700 ; 


CfiLL 


MPYX 


4560 


E5 


04710 


PUSH 


HL 



(DE) <- MPLIER 
(HL) <- MPCflND 
SftUE IP 

(Bfl) <- MPCftND 

(AHL)l <- MPCftND. HB*MPLIER 

1ST PftRTIftL PRODUCT 
SftUE (HL)1 



4561 


67 


04720 




LD 


H,A 


4562 


78 


04730 




LD 


A,B 


4563 


44 


04740 




LD 


B,H 


4564 


CD744S 


04750 
04760 


S 


CALL 


MPYX 


4567 


Dl 


04770 




POP 


DE 


4568 


4FI 


04780 
04790 




LD 


C,D 






04800 




FORM 


SUM OF PARTIALS 






04810 






( AHL ) 1 






04820 






+ (AHL) 2 






04830 













04840 






( AHLE ) 






04850 








4569 


09 


04860 




ADD 


HL.BC 


456A 


CE00 


04870 




ADC 


A,0 


456C 


55 


04880 




LB 


D,L 


456D 


6C 


04890 




LD 


L,H 


456E 


67 


04900 




LD 


H,A 


456F 


CI 


04910 




POP 


BC 


4570 


D5 


04920 




PUSH 


DE 


4571 


C37B43 


04930 
04940 




JP 


HPUSH 






04950 


; MULTIPLY PRIMITIVE 24 BITS 






04960 












04970 




(AHL) 


< - ( A ) * ( DE ) 






04980 


; *BITS 


- 24 


8 16 






04990 








4574 


210000 


05000 


MPYX 


LD 


HL,0 


T.LW 












4577 


0E08 


05010 




LD 


C,8 


4579 


29 


05020 


MPYX1 


ADD 


HL.HL 


4S7A 


17 


05030 




RLA 




457B 


D28145 


05040 




JP 


NC.MPYX2 


4S7E 


19 


05050 




ADD 


HL.DE 


457F 


CE00 


05060 




ADC 


A,0 


4581 


0D 


05070 


MPYX2 


DEC 


C 


4582 


20F5 


05080 




JR 


NZ.MPYX1 


4584 


C9 


05090 
05100 


1 


RET 




4585 




05110 




HD 


2,U,/,USTAR-5 


4585 


82 






DEFB 


2+80H 


4586 


55 






DEFM 


' U' 


4587 


AF 






DEFB 


' /" +80H 


4588 


5145 






DEFW 
ENDM 


USTAR-5 


4S8A 




05120 


USLAS 


DM 


*+2 


458A 


8C45 






DEFW 
ENDM 


S+2 


458C 


210400 


05130 




LD 


HL,4 


458F 


39 


05140 




ADD 


HL.SP 


4590 


5E 


05150 




LD 


E.(HL) 


4591 


71 


05160 




LD 


( HL) , C 


4592 


23 


05170 




INC 


HL 


4593 


56 


05180 




LD 


D,(HL) 


4594 


70 


05190 




LD 


( HL ) , B 


4595 


CI 


05200 




POP 


BC 



; SAUE (A)l 

; (AHD2 <- MPCAND. LB*MPLIER 

2ND PARTIAL PRODUCT 
; (DE) <- (HL)1 
; (BC) <- (AH)1 



; (HL) <- (HL)2 + (AH)1 
; (AHLE) <- (BA)*(DE) 



(HLDE) <- MPLIER * MPCAND 

RESTORE IP 

(S2) <- PRODUCT. LW 

(SI) <- PRODUCT. HW 



- 8 * IS 



; (HL) <- = PARTIAL PRODUC 

; LOOP COUNTER 

; LEFT SHIFT (AHL) 24 BITS 

; IF NEXT MPLIER BIT = 1 

; THEN ADD MPCAND 

; IF NOT LAST MPLIER BIT 

; THEN LOOP AGAIN 

; ELSE DONE 



((HD) <- NUMERATOR. LW 
(DE) <- NUMER.LW 
SAUE IP ON STACK 



; (BC) <- DENOMINATOR 



4596 

4597 

4598 

4599 

459A 

459B 

459D 

4500 

45A3 

45A5 

45A7 

RY 

45A8 

4509 

4SAA 

45flB 

45AD 

45AE 

45RF 

45B0 

45B1 

45B2 

45B4 

45B5 

45B6 

45B7 

45B8 

45B9 

45BA 

45BC 

C> 

45BD 

4SBE 

45BF 

45C0 

45C1 

45C2 

45C4 

45C5 

45C6 

45C7 

45C8 

45C9 

45CB 

45CC 

4SCD 

45CE 



El 

7D 

91 

7C 

98 

3808 

21FFFF 

11FFFF 

1826 

3E10 

29 

17 

EB 

29 

3002 

13 

A7 

EB 

IF 

F5 

3008 

7D 

91 

6F 

7C 

98 

67 

180ft 

7D 

91 

8F 

7C 

98 

67 

3002 

09 

IB 

13 

Fl 

3D 

20DC 

CI 

E5 

D5 

C37C43 



45D1 
4SD1 83 
45D2 41 
45D3 4E 
45D4 C4 
45D5 8545 

45D7 
45D7 D945 



05210 

05220 

05230 

05240 

05250 

05260 

05270 

05280 

05290 

05300 USLA1 

05310 USLA2 

05320 

05330 

05340 

05350 

05360 

05370 

05380 USLA3 

05390 

05400 

05410 

05420 

05430 

05440 

05450 

05460 

05470 

05480 

05490 USLfl4 

05500 

05510 

05520 

05530 

05540 

05550 

05560 

05570 

05580 USLA5 

05590 USLf=f6 

05600 

05610 

05620 USLft7 

05630 

05640 

05650 

05660 ; 

05670 



05680 ftNDD 



POP 

LD 

SUB 

LD 

SBC 

JR 

LD 

LD 

JR 

LD 

RDD 

RLfl 
EX 
• ADD 
JR 
INC 
FIND 
EX 
RRft 
PUSH 
JR 
LD 
SUB 
LD 
LD 
SBC 
LD 
JR 
LD 

SUB 

LD 

LD 

SBC 

LD 

JR 

RDD 

DEC 

INC 

POP 

DEC 

JR 

POP 

PUSH 

PUSH 

JP 

HD 

DEFB 

DEFM 

DEFB 

DEFW 

ENDM 

DM 

DEFW 

ENDM 



HL 

ft.L 

C 

A,H 

fi,B 

C.USLA1 

HL.0FFFFH 

DE.0FFFFH 

USLR7 

A, 16 

HL.HL 



DE.HL 

HL.HL 

NC , USLR3 

DE 

R 

DE.HL 

RF 

NC , USLR4 

fl.L 

C 

L,A 

R,H 

fl,B 

H,A 

USLR5 

R,L 

C 

L,R 

R,H 

R,B 

H,A 

NC.USLA5 

HL.BC 

DE 

DE 

RF 

fl 

NZ.USLAZ 

BC 

HL 

DE 

NEXT 

3,AN,D,USLAS-5 

3+80H 

' AN' 

' D' +80H 
USLAS-5 

»+2 
S+2 



; (HL) <- NUMER.HW 
; IF NUMER >- DENOM 



; THEN OVERFLOW 

; SET REM & QUOT TO MAX 

; LOOP COUNTER 

; SHIFT LEFT ( HLDE ) THRU CAR 



SHIFT DONE 
RESTORE 1ST CARRY 
SAUE COUNTER 
IF CARRY - 1 
THEN (HL) <- (HL) 



(BC) 



; ELSE TRY (HL) <- ( HL ) - (B 



; (HL) <- PARTIAL REMAINDER 



; UNDERFLOW, RESTORE 

INC QUOT 
RESTORE COUNTER 
IF COUNTER > 

THEN LOOP AGAIN 

ELSE DONE, RESTORE IP 
(S2) <- REMAINDER 
(SI) <- QUOTIENT 



45D9 


Dl 


05690 


POP 


DE 


45DR 


El 


05700 


POP 


HL 


45DB 


7B 


05710 


LD 


R,E 


45DC 


R5 


05720 


RND 


L 


45DD 


6F 


05730 


LD 


L,R 


45DE 


7R 


05740 


LD 


R,D 


45DF 


R4 


05750 


RND 


H 


45E0 


67 


05760 


LD 


H,R 


45E1 


C37B43 


05770 
05780 ; 


JP 


HPUSH 


45E4 




05790 


HD 


2,0,R,RNDD-6 


45E4 


82 




DEFB 


2+80H 


45E5 


4F 




DEFM 


' 0' 


45ES 


D2 




DEFB 


' R' +80H 


45E7 


D145 




DEFW 
ENDM 


RNDD-6 


45E9 




05800 ORR 


DW 


S+2 


45E9 


EB45 




DEFW 
ENDM 


S+2 


45EB 


Dl 


05810 


POP 


DE 


45EC 


El 


05820 


POP 


HL 


45ED 


7B 


05830 


LD 


R,E 


45EE 


B5 


05840 


OR 


L 


45EF 


6F 


05850 


LD 


L.fl 


45F0 


7R 


05860 


LD 


R,D 


45F1 


B4 


05870 


OR 


H 


45F2 


67 


05880 


LD 


H,R 


45F3 


C37B43 


05890 
05900 ; 


JP 


HPUSH 


45FG 




05910 


HD 


3,X0,R,0RR-5 


45F6 


83 




DEFB 


3+80H 


45F7 


58 




DEFM 


' XO' 


45F8 


4F 








45F9 


D2 




DEFB 


' R' +80H 


45FR 


E445 




DEFW 
ENDM 


ORR -5 


45FC 




05920 XORR 


DW 


S+2 


45FC 


FE45 




DEFW 
ENDM 


S+2 


45FE 


Dl 


05930 


POP 


DE 


45FF 


El 


05940 


POP 


HL 


4600 


7B 


05950 


LD 


R.E 


4601 


RD 


05960 


XOR 


L 


4602 


6F 


05970 


LD 


L.fl 


4603 


7fl 


05980 


LD 


fl.D 


4604 


RC 


05990 


XOR 


H 


4605 


67 


06000 


LD 


H,R 


4606 


C37B43 


06010 
06020 ; 


JP 


HPUSH 


4609 




06030 


HD 


3,SP,»,X0RR-6 


4609 


83 




DEFB 


3+80H 


460R 


53 




DEFM 


' SP' 


460B 


50 








460C 


C0 




DEFB 


' •' +80H 


460D 


F645 




DEFW 
ENDM 


XORR -6 


460F 




06040 SPRT 


DW 


S+2 


460F 


1146 




DEFW 


S+2 









ENDM 




4611 


210000 


06050 


LD 


HL,0 


4614 


39 


06060 


ftDD 


HL.SP 


4615 


C37B43 


06070 
06080 ; 


JP 


HPUSH 


4618 




06090 


HD 


3.SP, ! ,SPAT-6 


4618 


83 




DEFB 


3+80H 


4619 


53 




DEFM 


' 5P' 


461ft 


50 








461B 


ftl 




DEFB 


* ! ' +80H 


461C 


0946 




DEFW 
ENDM 


SPftT-6 


461E 




06100 SP5T0 


DW 


S+2 


461E 


2046 




DEFW 
ENDM 


S+2 


4620 


2ft7643 


06110 


LD 


HL , ( UP ) 


4623 


110600 


06120 


LD 


DE,6 


4626 


19 


06130 


ADD 


HL,DE 


4627 


5E 


06140 


LD 


E.CHL) 


4628 


23 


06150 


INC 


HL 


4629 


56 


06160 


LD 


D,(HL) 


462ft 


EB 


06170 


EX 


DE.HL 


462B 


F9 


06180 


LD 


SP , HL 


462C 


C37C43 


06190 
06200 ; 


JP 


NEXT 


462F 




06210 


HD 


3,RP,»,SPST0-6 


462F 


83 




DEFB 


3+80H 


4630 


52 




DEFM 


' RP' 


4631 


50 








4632 


C0 




DEFB 


' ©' +80H 


4633 


1846 




DEFW 
ENDM 


5PSTO-6 


4635 




06220 RPftT 


DW 


S+2 


4635 


3746 




DEFW 
ENDM 


S+2 


4637 


2ft7843 


06230 


LD 


HL.CRPP) 


463ft 


C37B43 


06240 
06250 ; 


JP 


HPU5H 


463D 




06260 


HD 


3.RP, ! , RPAT-6 


463D 


83 




DEFB 


3+80H 


463E 


52 




DEFM 


' RP' 


463F 


50 








4640 


Ai 




DEFB 


' ! ' +80H 


4641 


2F46 




DEFW 
ENDM 


RPAT-6 


4643 




06270 RPSTO 


DW 


S+2 


4643 


4546 




DEFW 
ENDM 


S+2 


4645 


2ft7643 


06280 


LD 


HL.(UP) 


4648 


110800 


06290 


LD 


DE.8 


464B 


19 


06300 


ADD 


HL.DE 


464C 


5E 


06310 


LD 


E.CHL) 


464D 


23 


06320 


INC 


HL 


464E 


56 


06330 


LD 


D.CHL) 


464F 


EB 


06340 


EX 


DE.HL 


4650 


227843 


06350 


LD 


( RPP ) , HL 


4653 


C37C43 


06360 
06370 ; 


JP 


NEXT 



4656 




06380 


DB 


82H 




4656 


82 




DEFB 
ENDM 


82H 




4657 


3B 


06390 


DEFM 


J 




4658 




06480 


MB 


S 




4658 


D3 




DEFB 
ENDM 


' S' +80H 




4659 




06410 


DM 


RPSTO-6 




4659 


3D46 




DEFW 
ENDM 


RPSTO-6 




465B 




06420 SEMIS 


DM 


*+2 




465B 


5D46 




DEFW 
ENDM 


$+2 




465D 


2A7843 


06430 


LD 


HL,(RPP> 




4660 


4E 


06440 


LD 


C , ( HL) 




4661 


23 


06450 


INC 


HL 




4662 


46 


06460 


LD 


B , ( HL) 




4663 


23 


06470 


INC 


HL 




4664 


227843 


06480 


LD 


C RPP ) , HL 




4667 


C37C43 


06490 
06500 ; 


JP 


NEXT 




466ft 




06510 


HD 


5,LEflU,E,SEMIS- 


-5 


466A 


85 




DEFB 


5+80H 




466B 


4C 




DEFM 


' LEfiU' 




466C 


45 










466D 


41 










466E 


56 










466F 


CS 




DEFB 


' E' +80H 




4670 


5646 




DEFW 
ENDM 


SEMIS-5 




4672 




06520 LEFIUE 


DW 


S+2 




4672 


7446 




DEFW 
ENDM 


*+2 




4674 


21=17843 


06530 


LD 


HL.(RPP) 




4677 


5E 


06540 


LD 


E.CHL) 




4678 


23 


06550 


INC 


HL 




4679 


56 


06560 


LD 


D, (HL) 




467A 


23 


06570 


INC 


HL 




467B 


73 


06580 


LD 


( HL ) , E 




467C 


23 


06590 


INC 


HL. 




467D 


72 


06600 


LD 


( HL ) , D 




467E 


C37C43 


06610 
06620 ; 


JP 


NEXT 




4681 




06630 


HD 


2,>,R,LEHUE-8 




4681 


82 




DEFB 


2+80H 




4682 


3E 




DEFM 


' >' 




4683 


D2 




DEFB 


' R' +80H 




4684 


6A46 




DEFW 
ENDM 


LEAUE-8 




4686 




06640 TOR 


DW 


«+2 




4686 


8846 




DEFW 
ENDM 


f+2 




4688 


Dl 


06650 


POP 


DE 




4689 


207843 


06660 


LD 


HL.(RPP) 




468C 


2B 


06670 


DEC 


HL 




468D 


2B 


06680 


DEC 


HL 




468E 


227843 


06690 


LD 


( RPP ) , HL 




4691 


73 


06700 


LD 


C HL ) , E 





4692 


23 


06710 


INC 


HL 


4693 


72 


06720 


LD 


( HD , D 


4694 


C37C43 


06730 
06740 ; 


JP 


NEXT 


4697 




06750 


HD 


2,R, >,T0R-5 


4697 


82 




DEFB 


2+80H 


4698 


52 




DEFM 


' R' 


4699 


BE 




DEFB 


' >' +80H 


469F1 


8146 




DEFW 
ENDM 


TOR-5 


469C 




06760 FROMR 


DW 


S+2 


469C 


9E46 




DEFW 
ENDM 


*+2 


469E 


2A7843 


06770 


LD 


HL.(RPP) 


46R1 


5E 


06780 


LD 


E.(HL) 


46A2 


23 


06790 


INC 


HL 


46A3 


56 


06800 


LD 


D.CHL) 


46R4 


23 


06810 


INC 


HL 


46AS 


227843 


06820 


LD 


( RPP ) , HL 


46A8 


D5 


06830 


PU5H 


DE 


46A9 


C37C43 


06840 
06850 ; 


JP 


NEXT 


46AC 




06860 


DB 


81H 


46AC 


81 




DEFB 
ENDM 


81H 


46AD 




06870 


MB 


R 


46AD 


D2 




DEFB 
ENDM 


' R' +80H 


46flE 




06880 


DW 


FROMR -5 


46AE 


9746 




DEFW 
ENDM 


FROMR-5 


46B0 




06890 RR 


DW 


IDO+2 


46B0 


3D44 


06900 ; 


DEFW 
ENDM 


IDO+2 


46B2 




06910 


HD 


2,0,-,RR-4 


46B2 


82 




DEFB 


2+80H 


46B3 


30 




DEFM 


' 0' 


46B4 


BD 




DEFB 


' -' +80H 


46B5 


AC46 




DEFW 
ENDM 


RR-4 


46B7 




06920 2EQU 


DW 


*+2 


46B7 


B946 




DEFW 
ENDM 


«+2 


46B9 


El 


06930 


POP 


HL 


46BP, 


7D 


06940 


LD 


A,L 


46BB 


B4 


06950 


OR 


H 


46BC 


210000 


06960 


LD 


HL.0 


46BF 


2001 


06970 


JR 


NZ.ZEQU1 


46C1 


23 


06980 


INC 


HL 


4GC2 


C37B43 


06990 ZEQU1 
07000 ; 


JP 


HPU5H 


46C5 




07010 


HD 


2,0,<,ZEQU-5 


46C5 


82 




DEFB 


2+80H 


46CB 


30 




DEFM 


' 0' 


46C7 


BC 




DEFB 


' < ' +80H 


46C8 


B246 




DEFW 
ENDM 


ZEQU-5 



46CA 




07020 


ZLES5 


DW 


S+2 




4SCA 


CC46 






DEFW 
ENDM 


$+2 




46CC 


El 


07030 




POP 


HL 




46CD 


29 


07040 




ADD 


HL.HL 




4GCE 


210000 


07050 




LD 


HL,0 




46D1 


D2D546 


07060 




JP 


NC.ZLES1 




46D4 


23 


07070 




INC 


HL 




46D5 


C37B43 


07080 
07090 


2LES1 

1 


JP 


HPUSH 




46D8 




07100 




DB 


81H 




46D8 


81 






DEFB 
ENDM 


81H 




4GD8 




07110 




MB 


+ 




4SD9 


AB 






DEFB 
ENDM 


' +' +80H 




46DA 




07120 




DW 


2LESS-5 




46DA 


C546 






DEFW 
ENDM 


ZLESS-5 




4GDC 




07130 


PLU5 


DW 


%+Z 




46DC 


DE46 






DEFW 
ENDM 


*+2 




46DE 


Dl 


07140 




POP 


DE 




46DF 


El 


07158 




POP 


HL 




46E0 


19 


07160 




ADD 


HL.DE 




4GE1 


C37B43 


07170 
07180 


» 


JP 


HPUSH 




4GE4 

W 

46E4 




07190 




HD 


2,D,+,PLUS-4 ; XLW XHW YLW YHW 


82 






DEFB 


2+80H 




46E5 


44 






DEFM 


• D' 




46EG 


AB 






DEFB 


' +' +80H 




46E7 


D846 






DEFW 
ENDM 


PLUS -4 




46E9 

1 

4GE9 




07200 


DPLUS 


DW 


*+2 


; S4 S3 S2 SI 


EB46 






DEFW 


S+2 












ENDM 






4GEB 


210600 


07210 




LD 


HL,6 




4GEE 


39 


07228 




ADD 


HL.SP ; 


( ( HL) ) - XLW 


46EF 


5E 


07230 




LD 


E,(HL) ; 


(DE) - XLW 


4GF0 


71 


07240 




LD 


( hl ) , c ; 


SAUE IP ON STACK 


46F1 


23 


07250 




INC 


HL 




4GF2 


56 


07260 




LD 


D,(HL) 




46F3 


70 


07278 




LD 


(HL),B 




46F4 


CI 


07280 




POP 


BC ; 


(BC) <- YHW 


4GF5 


El 


07290 




POP 


HL ; 


(HL) <- YLW 


4GF6 


19 


07300 




ADD 


HL.DE 




4SF7 


EB 


07310 




EX 


DE,HL ; 


(DE) <- YLW+XLW - SUM.LW 


46F8 


El 


07320 




POP 


HL ; 


(HL) <- XHW 


46F9 


7D 


07330 




LD 


A,L 




46FA 


89 


07340 




ADC 


A f C 




4GFB 


6F 


07350 




LD 


L,A ; 


(HL) <- YHW+XHW + CARRY 


4GFC 


7C 


07360 




LD 


A,H 




4GFD 


88 


07370 




ADC 


A,B 




4GFE 


67 


07380 




LD 


H,A 




4GFF 


CI 


07390 




POP 


BC ; 


RESTORE IP 


4700 


D5 


07400 




PUSH 


DE ; 


(S2) <- SUM.LW 



- SLW SH 



S2 S 



4701 


C37B43 


07410 
07420 ; 


JP 


HPUSH 


; (SI ) <- 


SUM . HW 


4704 




07430 


HD 


5,MINU,S,DPLUS-5 




4704 


85 




DEFB 


5+80H 






4705 


4D 




DEFM 


' minu' 






4706 


49 












4707 


4E 












4708 


55 












4709 


D3 




DEFB 


' S' +80H 






470fl 


E446 




DEFW 
ENDM 


DPLUS-5 






470C 




07440 MINUS 


DM 


S+2 






470C 


0E47 




DEFW 
ENDM 


S+2 






470E 


El 


07450 


POP 


HL 






470F 


7D 


07460 


LD 


ft.L 






4710 


2F 


07470 


CPL 








4711 


6F 


07480 


LD 


L.fl 






4712 


7C 


07490 


LD 


A,H 






4713 


2F 


07500 


CPL 








4714 


67 


07510 


LD 


H.fl 






4715 


23 


07520 


INC 


HL 






4716 


C37B43 


07530 
07540 ; 


JP 


HPUSH 






4719 




07550 


HD 


6, DMINU, 


,S, MINUS-8 




4719 


86 




DEFB 


6+80H 






471A 


44 




DEFM 


' DMINU' 






471B 


4D 












471C 


49 












471D 


4E 












471E 


55 












471F 


D3 




DEFB 


' S' +80H 






4720 


0447 




DEFW 
ENDM 


MINUS-8 






4722 




07560 DMINU 


DW 


S+2 






4722 


2447 




DEFW 
ENDM 


S+2 






4724 


El 


07570 


POP 


HL 


; (HL) <- 


HW 


4725 


Dl 


07580 


POP 


DE 


; (DE) <- 


LW 


4726 


97 


07590 


5UB 


A 






4727 


93 


07600 


5UB 


E 


; (DE) <- 


- (DE 


4728 


5F 


07610 


LD 


E.A 






4729 


3E00 


07620 


LD 


R,0 






472B 


9fl 


07630 


5BC 


fl.D 






472C 


57 


07640 


LD 


D,A 






472D 


3E00 


07650 


LD 


A,0 






472F 


9D 


07660 


SBC 


A.L 


; (HL) <- 


- (HL 


4730 


6F 


07670 


LD 


L,A 






4731 


3E00 


07680 


LD 


fl,0 






4733 


9C 


07690 


SBC 


A,H 






4734 


67 


07700 


LD 


H.fl 






4735 


D5 


07710 


PUSH 


DE 


; (S2) <- 


LW 


4736 


C37B43 


07720 
07730 ; 


JP 


HPUSH 


; (Si) <- 


HW 


4739 




07740 


HD 


4.0UE.R. 


DMINU-9 




4739 


84 




DEFB 


4+80H 






473fi 


4F 




DEFM 


' OUE' 






473B 


56 













473C 


45 








473D 


D2 




DEFB 


' R' +80H 


473E 


1947 




DEFW 
ENDM 


DMINU-9 


4740 




07750 OUER 


DM 


$+2 


4740 


4247 




DEFW 
ENDM 


f+2 


4742 


Dl 


07780 


POP 


DE 


4743 


El 


07770 


POP 


HL 


4744 


E5 


07780 


PUSH 


HL 


4745 


C37A43 


07790 
07800 ; 


JP 


DPUSH 


4748 




07810 


HD 


4,DR0,P,0UER-7 


4748 


84 




DEFB 


4+80H 


4749 


44 




DEFM 


' DRO' 


474FI 


52 








474B 


4F 








474C 


D0 




DEFB 


' P' +80H 


474D 


3947 




DEFW 
ENDM 


OUER -7 


474F 




07820 DROP 


DW 


$+2 


47 4F 


5147 




DEFW 
ENDM 


$+2 


4751 


El 


07830 


POP 


HL 


4752 


C37C43 


07840 
07850 ; 


JP 


NEXT 


4755 




07860 


HD 


4,SWfl,P,DR0P-7 


4755 


84 




DEFB 


4+80H 


4756 


53 




DEFM 


' SWFT 


4757 


57 








4758 


41 








4759 


D0 




DEFB 


' P' +80H 


475FI 


4847 




DEFW 
ENDM 


DROP-7 


475C 




07870 SWAP 


DW 


$+2 


475C 


SE47 




DEFW 
ENDM 


S+2 


475E 


El 


07880 


POP 


HL 


475F 


E3 


07890 


EX 


( SP ) , HL 


4780 


C37B43 


07900 
07910 ; 


JP 


HPUSH 


4783 




07920 


HD 


3,DU,P,SWflP-7 


4753 


83 




DEFB 


3+80H 


4764 


44 




DEFM 


'DU' 


4765 


55 








4766 


D0 




DEFB 


' P' +80H 


4767 


5547 




DEFW 
ENDM 


SWAP -7 


4769 




07930 DUP 


DW 


S+2 


4769 


6B47 




DEFW 
ENDM 


S+2 


476B 


El 


07940 


POP 


HL 


476C 


E5 


07950 


PUSH 


HL 


476D 


C37B43 


07960 
07970 ; 


JP 


HPUSH 


4770 




07980 


HD 


4.2DU.P.DUP-6 


4770 


84 




DEFB 


4+80H 


4771 


32 




DEFM 


' 2DU' 



4772 


44 










4773 


55 










4774 


D0 




DEFB 


' P' +80H 




4775 


6347 




DEFW 
ENDM 


DUP-6 




4777 




07990 TDUP 


DW 


*+2 




4777 


7947 




DEFW 
ENDM 


S+2 




4779 


El 


08000 


POP 


HL 




4770 


Dl 


08010 


POP 


DE 




477B 


D5 


08020 


PUSH 


DE 




477C 


E5 


08030 


PUSH 


HL 




477D 


C37A43 


08040 
08050 ; 


JP 


DPUSH 




4780 




08060 


HD 


2,+, !,TDUP-7 




4780 


82 




DEFB 


2+80H 




4781 


2B 




DEFM 


' +' 




4782 


Al 




DEFB 


' !' +80H 




4783 


7047 




DEFW 
ENDM 


TDUP-7 




4785 




08070 PSTOR 


DW 


S+2 




478S 


8747 




DEFW 
ENDM 


$+2 




4787 


El 


08080 


POP 


HL 




4788 


Dl 


08090 


POP 


DE 




4789 


7E 


08100 


LD 


A,(HL) 




478A 


83 


08110 


ADD 


A,E 




478B 


77 


08120 


LD 


C HL ) , A 




478C 


23 


08130 


INC 


HL 




478D 


7E 


08140 


LD 


A.CHL) 




478E 


8fl , 


08150 


ADC 


A,D 




478F 


77 


08160 


LD 


C HL ) , A 




4790 


C37C43 


08170 
08180 ; 


JP 


NEXT 




4793 




08190 


HD 


6, TOGGL, E, PSTOR - 


-5 


4793 


86 




DEFB 


6+80H 




4794 


54 




DEFM 


' TOGGL' 




4795 


4F 










4796 


47 










4797 


47 










4798 


4C 










4799 


C5 




DEFB 


' E J +80H 




479A 


8047 




DEFW 
ENDM 


PSTOR -5 




479C 




08200 TOGGL 


DW 


*+2 




479C 


9E47 




DEFW 
ENDM 


$+2 




479E 


Dl 


08210 


POP 


DE 




479F 


El 


08220 


POP 


HL 




47A0 


7E 


08230 


LD 


A.CHL) 




47 A 1 


AB 


08240 


XOR 


E 




47A2 


77 


08250 


LD 


( HL) , A 




47fl3 


C37C43 


08260 
08270 ; 


JP 


NEXT 




47A6 




08280 


DB 


81H 




47A6 


81 




DEFB 
ENDM 


81H 




4707 




08290 


MB 


9 





4707 


C0 




DEFB 
ENDM 


' 9' +80H 


4708 




08300 


DM 


TOGGL-9 


4708 


9347 




DEFW 
ENDM 


TOGGL-9 


4700 




08310 0T 


DW 


S+2 


4700 


0C47 




DEFW 
ENDM 


S+2 


470C 


El 


08320 


POP 


HL 


470D 


5E 


08330 


LD 


E.CHL) 


470E 


23 


08340 


INC 


HL 


470F 


56 


08350 


LD 


D , ( HL ) 


47B0 


D5 


08360 


PUSH 


DE 


47B1 


C37C43 


08370 
08380 ; 


JP 


NEXT 


47B4 




08390 


HD 


2,C,*,0T-4 


47B4 


82 




DEFB 


2+80H 


47B5 


43 




DEFM 


' C 


47B6 


C0 




DEFB 


' •' +80H 


47B7 


0647 




DEFW 
ENDM 


OT-4 


47B9 




08400 COT 


DW 


S+2 


47B9 


BB47 




DEFW 
ENDM 


S+2 


47BB 


El 


08410 


POP 


HL 


47BC 


6E 


08420 


LD 


L.CHL) 


47BD 


2600 


08430 


LD 


H,0 


47BF 


C37B43 


08440 
08450 ; 


JP 


HPUSH 


47C2 




08460 


HD 


2,2,»,C0T-5 


47C2 


82 




DEFB 


2+80H 


47C3 


32 




DEFM 


' 2' 


47C4 


C0 




DEFB 


' 9' +80H 


47C5 


B447 




DEFW 
ENDM 


COT -5 


47C7 




08470 TOT 


DW 


S+2 


47C7 


C947 




DEFW 
ENDM 


S+2 


47C9 


El 


08480 


POP 


HL 


47C0 


110200 


08490 


LD 


DE.2 


47CD 


19 


08500 


ODD 


HL.DE 


47CE 


5E 


08510 


LD 


E.CHL) 


47CF 


23 


08520 


INC 


HL 


47D0 


56 


08530 


LD 


D.CHL) 


47D1 


D5 


08540 


PUSH 


DE 


47D2 


11FDFF 


08550 


LD 


DE.-3 


47D5 


19 


08560 


ODD 


HL.DE 


47DS 


5E 


08570 


LD 


E,(HL) 


47D7 


23 


08580 


INC 


HL 


47D8 


56 


08590 


LD 


D.CHL) 


47D9 


D5 


08600 


PUSH 


DE 


47D0 


C37C43 


08610 
08620 ; 


JP 


NEXT 


47DD 




08630 


DB 


81H 


47DD 


81 




DEFB 
ENDM 


81H 


47DE 




08640 


MB 


i 


47DE 


01 




DEFB 


' ! ' +80H 









ENDM 




47DF 




08650 


DW 


TAT-5 


47DF 


C247 




DEFW 
ENDM 


TflT-5 


47E1 




08660 STORE 


DM 


*+2 


47E1 


E347 




DEFW 
ENDM 


$+2 


47E3 


El 


08670 


POP 


HL 


47E4 


Dl 


08680 


POP 


DE 


47E5 


73 


08690 


LD 


C HL ) , E 


47E6 


23 


08700 


INC 


HL 


47E7 


72 


08710 


LD 


( HL ) , D 


47E8 


C37C43 


08720 
08730 ; 


JP 


NEXT 


47EB 




08740 


HD 


2,C, ! , STORE-4 


47EB 


82 




DEFB 


2+80H 


47EC 


43 




DEFM 


' C 


47ED 


fU 




DEFB 


' ! ' +80H 


47EE 


DD47 




DEFW 
ENDM 


STORE-4 


47F0 




08750 CSTOR 


DW 


S+2 


47F0 


F247 




DEFW 
ENDM 


S+2 


47F2 


El 


08760 


POP 


HL 


47F3 


Dl 


08770 


POP 


DE 


47F4 


73 


08780 


LD 


(HL),E 


47F5 


C37C43 


08790 
08800 ; 


JP 


NEXT 


47F8 




08810 


HD 


2,2, ! .CSTOR-5 


47F8 


82 




DEFB 


2+80H 


47F9 


32 




DEFM 


' 2' 


47FA 


fll 




DEFB 


' ! ' +80H 


47FB 


EB47 




DEFW 
ENDM 


CSTOR-5 


47FD 




08820 TSTOR 


DW 


*+2 


47FD 


FF47 




DEFW 
ENDM 


$+2 


47FF 


El 


08830 


POP 


HL 


4800 


Dl 


08840 


POP 


DE 


4801 


73 


08850 


LD 


( HL ) , E 


4802 


23 


08860 


INC 


HL 


4803 


72 


08870 


LD 


( HL ) , D 


4884 


23 


08880 


INC 


HL 


4805 


Dl 


08890 


POP 


DE 


4806 


73 


08900 


LD 


C HL ) , E 


4807 


23 


08910 


INC 


HL 


4808 


72 


08920 


LD 


CHD.D 


4809 


C37C43 


08930 
08940 ; 


JP 


NEXT 


480C 




08950 


DB 


0C1H 


480C 


CI 




DEFB 
. ENDM 


0C1H 


480D 




08960 


MB 


: 


480D 


Bfl 




DEFB 
ENDM 


' : " +80H 


480E 




08970 


DW 


TSTOR -5 


480E 


F847 




DEFW 
ENDM 


TSTOR-5 



4810 




08980 


COLON 


DW5 


DOCOL , QEXEC , SCSP , CURR , FIT 




4810 


2448 






DEFW 


DOCOL 




4812 


BD4B 






DEFW 


QEXEC 




4814 


784B 






DEFW 


SCSP 




4816 


B049 






DEFW 


CURR 




4818 


ftft47 






DEFW 
ENDM 


ftT 




481ft 




08990 




DW5 


CONT , STORE , CREftT , RBRftC , PSCOD 




481ft 


ft349 






DEFW 


CONT 




481C 


E147 






DEFW 


STORE 




481E 


9050 






DEFW 


CREftT 




4820 


424C 






DEFW 


RBRftC 




4822 


954C 






DEFW 
ENDM 


PSCOD 




4824 


2ft7843 


09000 


DOCOL 


LD 


HL.(RPP) 




4827 


2B 


09010 




DEC 


HL 




4828 


70 


09020 




LD 


( HL ) , B 




4829 


2B 


09030 




DEC 


HL 




482ft 


71 


09040 




LD 


( HL ) . C 




482B 


227843 


09050 




LD 


( RPP ) , HL 




482E 


13 


09060 




INC 


DE 




482F 


4B 


09070 




LD 


C,E 




4830 


42 


09080 




LD 


B,D 




4831 


C37C43 


09090 
09100 


1 


JP 


NEXT 




4834 




09110 




DB 


0C1H 




4834 


CI 






DEFB 
ENDM 


8C1H 




4835 


BB 


09120 




DEFB 


' ; ' +80H 




483G 




09130 




DW 


C0L0N-4 




4836 


0C48 






DEFW 
ENDM 


COLON- 4 




4838 




09140 


SEMI 


DW7 


DOCOL , QCSP , COMP , SEMIS , SMUDG . LBRftC , 


, SEMIS 


4838 


2448 






DEFW 


DOCOL 




483ft 


E74B 






DEFW 


QCSP 




483C 


1E4C 






DEFW 


COMP 




483E 


5B46 






DEFW 


SEMIS 




4840 


574C 






DEFW 


SMUDG 




4842 


344C 






DEFW 


LBRftC 




4844 


5B46 


09150 


I 


DEFW 
ENDM 


SEMIS 




4846 




09160 




HD 


4,N00,P,SEMI-4 




4846 


84 






DEFB 


4+80H 




4847 


4E 






DEFM 


' NOO' 




4848 


4F 












4849 


4F 












484ft 


D0 






DEFB 


' P' +80H 




484B 


3448 






DEFW 
ENDM 


SEMI -4 




484D 




09170 


NOOP 


DW2 


DOCOL, SEMIS 




484D 


2448 






DEFW 


DOCOL 




484F 


5B46 


09180 


f 


DEFW 
ENDM 


SEMIS 




4851 




09190 




HD 


8 , CONSTftN , T , NOOP - 7 




4851 


88 






DEFB 


8+80H 




4852 


43 






DEFM 


' CONSTftN' 





4853 


4F 












4854 


4E 












4855 


53 












4856 


54 












4857 


41 












4858 


4E 












4859 


D4 






DEFB 


' T' +80H 




485fl 


4648 






DEFW 
ENDM 


N00P-7 




485C 




05200 


CON 


DW5 


DOCOL , CREAT , SMUDG , COMMft , 


, PSCOD 


485C 


2448 






DEFW 


DOCOL 




485E 


9050 






DEFW 


CREflT 




4360 


574C 






DEFW 


SMUDG 




4862 


324ft 






DEFW 


COMMft 




4864 


954C 






DEFW 
ENDM 


PSCOD 




4866 


13 


09210 


DOCON 


INC 


DE 




4867 


EB 


09220 




EX 


DE.HL 




4868 


5E 


09230 




LD 


E , < HL) 




4869 


23 


09240 




INC 


HL 




486fl 


56 


09250 




LD 


D.CHL) 




486B 


D5 


09260 




PUSH 


DE 




486C 


C37C43 


09270 
09280 


f 


JP 


NEXT 




486F 




09290 




HD 


8 , UftRIflBL , E , CON-0BH 




486F 


88 






DEFB 


8+80H 




4870 


56 






DEFM 


' UftRIflBL' 




4871 


41 












4872 


52 












4873 


49 












4874 


41 












4875 


42 












4876 


4C 












4877 


C5 






DEFB 


' E' +80H 




4878 


5148 






DEFW 
ENDM 


CON-0BH 




487ft 




09300 


UflR 


DW3 


DOCOL, CON, PSCOD 




487fl 


2448 






DEFW 


DOCOL 




487C 


5C48 






DEFW 


CON 




487E 


954C 






DEFW 
ENDM 


PSCOD 




4380 


13 


09310 


DOUftR 


INC 


DE 




4881 


D5 


09320 




PUSH 


DE 




4882 


C37C43 


09330 
09340 


t 


JP 


NEXT 




4885 




09350 




HD 


4,USE,R,UftR-0BH 




4885 


84 






DEFB 


4+80H 




4886 


55 






DEFM 


'USE' 




4887 


53 












4888 


45 












4889 


D2 






DEFB 


' R' +80H 




488fl 


SF48 






DEFW 
ENDM 


UAR-0BH 




488C 




09360 


USER 


DW3 


DOCOL, CON, PSCOD 




488C 


2448 






DEFW 


DOCOL 




488E 


5C48 






DEFW 


CON 




4890 


954C 






DEFW 
ENDM 


PSCOD 





4892 


13 


09370 DOUSE 


INC 


DE 


4893 


EB 


09380 


EX 


DE.HL 


4894 


5E 


09390 


LD 


E, CHL) 


4895 


1600 


09400 


LD 


D,0 


4897 


2A7643 


09410 


LD 


HL.(UP) 


489f=l 


19 


09420 


RDD 


HL.DE 


489B 


C37B43 


09430 
09440 ; 


JP 


HPUSH 


489E 




09450 


DB 


81H 


488E 


81 




DEFB 
ENDM 


81H 


489F 




09460 


MB 





489F 


B0 




DEFB 
ENDM 


' 0' +80H 


48R0 




09470 


DW 


USER-7 


48R0 


8548 




DEFW 
ENDM 


USER-7 


48R2 




09480 ZERO 


DW2 


DOCON, 


48A2 


6648 




DEFW 


DOCON 


48R4 


0000 


09490 ; 


DEFW 
ENDM 





481=16 




09500 


DB 


81H 


48R6 


81 




DEFB 
ENDM 


81H 


4807 




09510 


MB 


1 


48R7 


Bl 




DEFB 
ENDM 


' 1' +80H 


48R8 




09520 


DW 


ZERO -4 


48R8 


9E48 




DEFW 
ENDM 


ZERO -4 


48RR 




09530 ONE 


DW2 


DOCON, 1 


48RR 


6648 




DEFW 


DOCON 


48RC 


0100 


09540 ; 


DEFW 
ENDM 


1- 


48RE 




09550 


DB 


81H 


48RE 


81 




DEFB 
ENDM 


81H 


48RF 




09560 


MB 


2 


48AF 


B2 




DEFB 
ENDM 


' 2' +80H 


48B0 




09570 


DW 


ONE-4 


48B0 


R648 




DEFW 
ENDM 


ONE-4 


48B2 




09588 TWO 


DW2 


DOCON, 2 


48B2 


6648 




DEFW 


DOCON 


48B4 


0200 


09590 ; 


DEFW 
ENDM 


2 


48B6 




09600 


DB 


81H 


48B6 


81 




DEFB 
ENDM 


81H 


48B7 




09610 


MB 


3 


48B7 


B3 




DEFB 
ENDM 


' 3' +80H 


48B8 




09620 


DW 


TWO -4 


48B8 


RE48 




DEFW 


TWO -4 











ENDM 




48BA 




03630 


THREE 


DW2 


DOCON, 3 


48BA 


6648 






DEFW 


DOCON 


48BC 


0300 


08640 


5 


DEFW 
ENDM 


3 


48BE 




03650 




HD 


2,B,L,THREE-4 


48BE 


82 






DEFB 


2+80H 


48BF 


42 






DEFM 


' B' 


48C0 


CC 






DEFB 


' L' +80H 


48C1 


B648 






DEFW 
ENDM 


THREE -4 


48C3 




09660 


BL 


DW2 


DOCON , 20H 


48C3 


6648 






DEFW 


DOCON 


48C5 


2000 


09670 


* 


DEFW 
ENDM 


20H 


48C7 




09680 




HD 


3,C/,L,BL-5 


48C7 


83 






DEFB 


3+80H 


48C8 


43 






DEFM 


* C/' 


48C9 


2F 










48Cfl 


CC 






DEFB 


' L' +80H 


48CB 


BE48 






DEFW 
ENDM 


BL-5 


48CD 




09690 


CSLL 


DW2 


DOCON , 64 


48CD 


6648 






DEFW 


DOCON 


48CF 


4000 


09700 


f 


DEFW 
ENDM 


64 


48D1 




09710 




HD 


5,FIRS,T,CSLL-6 


48D1 


as 






DEFB 


5+80H 


48D2 


46 






DEFM 


' FIRS' 


48D3 


43 










48D4 


52 










48D5 


53 










48D6 


D4 






DEFB 


' T' +80H 


48D7 


C748 






DEFW 
ENDM 


CSLL -6 


48D9 




09720 


FIRST 


DW2 


DOCON, BUF1 


48D3 


6648 






DEFW 


DOCON 


48DB 


E473 


09730 


1 


DEFW 
ENDM 


BUF1 


48DD 




09740 




HD 


5,LIMI,T,FIRST-8 


48DD 


85 






DEFB 


5+80H 


48DE 


4C 






DEFM 


' LIMI' 


48DF 


43 










48E0 


4D 










48E1 


49 










48E2 


D4 






DEFB 


' T' +80H 


48E3 


D148 






DEFW 
ENDM 


FIRST-8 


48E5 




09750 


LIMIT 


DW2 


DOCON, EM 


48E5 


6648 






DEFW 


DOCON 


48E7 


F07F 


09760 


f 


DEFW 
ENDM 


EM 


48E9 




09770 




HD 


S,B/BU,F,LIMIT-8 



48E9 85 
48EFI 42 
48EB 2F 
48EC 42 
48ED 55 
48EE C6 
48EF DD48 

48F1 

48F1 6648 

48F3 3004 



48F5 
48F5 85 
48F6 42 
48F7 2F 
48F8 53 
48F9 43 
48Ffl D2 
48FB E948 

48FD 

48FD 6648- 

48FF 0100 



4901 

4901 87 

4902 2B 

4903 4F 

4904 52 

4905 49 

4906 47 

4907 49 

4908 CE 

4909 F548 

490B 

490B 2448 
490D 8D43 
490F 5043 
4911 DC46 
4913 5B46 



4915 

4915 82 

4916 53 

4917 B0 

4918 0149 

491A 

491ft 9248 
48 1C 0600 



09780 BBUF 



09790 ; 
09800 



09810 BSCR 



09820 ; 
09830 



09840 PORIG 



DEFB 
DEFM 



DEFB 

DEFW 

ENDM 

DM2 

DEFW 

DEFW 

ENDM 

HD 

DEFB 

DEFM 



DEFB 

DEFW 

ENDM 

DW2 

DEFW 

DEFW 

ENDM 

HD 

DEFB 

DEFM 



5+80H 
' B/BU' 



' F' +80H 
LIMIT-8 

DOCON, KBBUF 

DOCON 

KBBUF 



5,B/SC,R,BBUF-8 

5+80H 

' B/5C 



' R' +80H 
BBUF-8 

DOCON, BSCRE 

DOCON 

BSCRE 



7,+0RIGI,N,BSCR-8 

7+80H 

' +ORIGI' 



DEFB 


' N' +80H 


DEFW 


BSCR -8 


ENDM 




DW5 


DOCOL, LIT , ORIG , PLUS , SEMI5 


DEFW 


DOCOL 


DEFW 


LIT 


DEFW 


ORIG 


DEFW 


PLUS 


DEFW 


SEMIS 


ENDM 





09850 
09860 
09870 
09880 



USER VARIABLES 



09890 S2ERO 



HD 


2,S,0,PORIG-0AH 


DEFB 


2+80H 


DEFM 


' S' 


DEFB 


' 0' +80H 


DEFW 


PORIG-0AH 


ENDM 




DW2 


DOUSE, 6 


DEFW 


DOUSE 


DEFW 


6 


ENDM 





491E 




09900 
09910 


t 


HD 


2,R,0,SZERO-5 


491E 


92 






DEFB 


2+80H 


491F 


52 






DEFM 


' R' 


4920 


B0 






DEFB 


' 0' +80H 


4921 


1549 






DEFW 
ENDM 


SZERO-5 


4923 




09920 


RZERO 


DW2 


D0U5E f 8 


4923 


9248 






DEFW 


DOUSE 


4925 


0900 


09930 


* 


DEFW 
ENDM 


8 


492? 




09940 




HD 


3,TI,B,R2ER0-5 


4927 


B3 






DEFB 


3+80H 


4928 


54 






DEFM 


* TI* 


4929 


49 










492A 


C2 






DEFB 


' B' +80H 


492B 


1E49 






DEFW 
ENDM 


R2ER0-5 


492D 




09950 


TIB 


DW 


DOUSE 


492D 


9248 






DEFW 
ENDM 


DOUSE 


492F 




09960 




DB 


0ftH 


492F 


0ft 


09970 


t 


DEFB 
ENDM 


0flH 


4930 




09980 




HD 


5,WIDT,H,TIB-6 


4930 


85 






DEFB 


5+80H 


TC3*3 JL 


57 






DEFM 


' WIDT' 


4932 


49 










4933 


44 










4934 


54 










4935 


C8 






DEFB 


" H' +80H 


4936 


2749 






DEFW 
ENDM 


TIB-6 


4938 




09990 


WIDTH 


DW 


DOUSE 


4938 


9248 






DEFW 
ENDM 


DOUSE 


493ft 




10000 




DB 


0CH 


493ft 


0C 


10010 


t 


DEFB 
ENDM 


0CH 


493B 




10020 




HD 


7,WflRNIN,G,WIDTH-8 


493B 


87 






DEFB 


7+B0H 


493C 


57 






DEFM 


' WARN IN' 


493D 


41 










493E 


52 










493F 


4E 










4940 


49 










4941 


4E 










4942 


C7 






DEFB 


' G' +80H 


4943 


3049 






DEFW 
ENDM 


WIDTH-8 


4945 




10030 


WARN 


DW 


DOUSE 


4945 


9248 






DEFW 
ENDM 


DOUSE 


4947 




10040 




DB 


0EH 


4947 


0E 






DEFB 


0EH 



ENDM 







10050 


> 






4948 




10060 




HD 


5, FENCE, WARN -0RH 


4948 


85 






DEFB 


5+80H 


4949 


46 






DEFM 


' FENC 


494A 


45 










494B 


4E 










494C 


43 










494D 


CS 






DEFB 


' E' +80H 


494E 


3B49 






DEFW 
ENDM 


WARN-0AH 


4950 




10070 


FENCE 


DW 


DOUSE 


4950 


9248 






DEFW 
ENDM 


DOUSE 


4952 




10080 




DB 


10H 


4952 


10 


10090 


* 


DEFB 
ENDM 


10H 


4953 




10100 




HD 


2,D,P,FENCE-8 


4953 


82 






DEFB 


2+80H 


4954 


44 






DEFM 


' D' 


4955 


D0 






DEFB 


' P' +80H 


4956 


4849 






DEFW 
ENDM 


FENCE -8 


4958 




10110 


DP 


DW 


DOUSE 


4958 


9248 






DEFW 
ENDM 


DOUSE 


495A 




10120 




DB 


12H 


495A 


12 


10130 


1 


DEFB 
ENDM 


12H 


495B 




10140 




HD 


8,U0C-LIN,K,DP-5 


495B 


88 






DEFB 


9+80H 


495C 


56 






DEFM 


' UOC-LIN' 


495D 


4F 










495E 


43 










495F 


2D 










4960 


4C 










4961 


49 










4962 


4E 










4963 


CB 






DEFB 


' K' +80H 


4964 


5349 






DEFW 
ENDM 


DP-5 


4966 




10150 


UOCL 


DW2 


DOUSE, 14H 


4966 


9248 






DEFW 


DOUSE 


4968 


1400 


10160 


> 


DEFW 
ENDM 


14H 


496A 




10170 




HD 


3,BL,K,UOCL-0BH 


496A 


83 






DEFB 


3+80H 


496B 


42 






DEFM 


' BL' 


496C 


4C 










496D 


CB 






DEFB 


' K' +80H 


496E 


5B49 






DEFW 
ENDM 


UOCL-0BH 


4970 




10180 


BLK 


DW 


DOUSE 


4970 


9248 






DEFW 
ENDM 


DOUSE 



4972 




10190 


DB 


16H 


4972 


16 


10200 ; 


DEFB 
ENDM 


16H 


4973 




10210 


HD 


2,I,N,BLK-6 


4973 


82 




DEFB 


2+80H 


4974 


49 




DEFM 


' I' 


4975 


CE 




DEFB 


' N' +80H 


497G 


6A49 




DEFW 
ENDM 


BLK-6 


4978 




10220 INN 


DW 


DOUSE 


4978 


9248 




DEFW 
ENDM 


DOUSE 


497R 




10230 


DB 


18H 


497R 


18 


10240 ; 


DEFB 
ENDM 


18H 


497B 




10250 


HD 


3,0U,T,INN-S 


497B 


83 




DEFB 


3+80H 


497C 


4F 




DEFM 


' OU' 


497D 


55 








497E 


D4 




DEFB 


' v +80H 


497F 


7349 




DEFW 
ENDM 


INN-5 


4981 




10260 OUTT 


DW 


DOUSE 


4981 


9248 




DEFW 
ENDM 


DOUSE 


4983 




10270 


DB 


1F(H 


4983 


lfl 


10280 ; 


DEFB 
ENDM 


lflH 


4984 




10290 


HD 


3,SC,R,0UTT-6 


4984 


83 




DEFB 


3+80H 


4985 


53 




DEFM 


' SC 


4986 


43 








4987 


D2 




DEFB 


' R' +80H 


4988 


7B49 




DEFW 
ENDM 


OUTT -6 


498fl 




10300 5CR 


DW 


DOUSE 


498fl 


9248 




DEFW 
ENDM 


DOUSE 


498C 




10310 


DB 


1CH 


498C 


1C 


10320 ; 


DEFB 
ENDM 


1CH 


498D 




10330 


HD 


6,0FFSE,T,SCR-6 


498D 


86 




DEFB 


6+80H 


498E 


4F 




DEFM 


' OFFSE' 


498F 


46 








4990 


46 








4991 


S3 








4992 


45 








4993 


D4 




DEFB 


' T* +80H 


4994 


8449 




DEFW 
ENDM 


SCR -6 


4996 




10340 0F5ET 


DW 


DOUSE 


4996 


9248 




DEFW 
ENDM 


DOUSE 



4998 




10350 




DB 


01EH 


4998 


IE 


10360 


1 


DEFB 
ENDM 


01EH 


4999 




10370 




HD 


7,C0NTEX,T,0FSET-9 


4999 


87 






DEFB 


7+80H 


4991=1 


43 






DEFM 


' CONTEX' 


499B 


4F 










499C 


4E 










499D 


54 










499E 


45 










499F 


58 










49R0 


D4 






DEFB 


' T' +80H 


49FI1 


8D49 






DEFW 
ENDM 


OFSET-9 


49(=I3 




10380 


CONT 


DW 


DOUSE 


49R3 


9248 






DEFW 
ENDM 


DOUSE 


49R5 




10390 




DB 


20H 


49R5 


20 


10400 


1 


DEFB 
ENDM 


20H 


49f=l6 




10410 




HD 


7 , CURREN , T , CONT - 0F)H 


49R6 


87 






DEFB 


7+80H 


49R7 


43 






DEFM 


' CURREN' 


49R8 


55 










491=19 


52 










49RR 


52 










49RB 


45 










49RC 


4E 










49RD 


D4 






DEFB 


' T' +80H 


49RE 


9949 






DEFW 
ENDM 


CONT-0RH 


49B8 




10420 


CURR 


DW 


DOUSE 


49B0 


9248 






DEFW 
ENDM 


DOUSE 


49B2 




10430 




DB 


22H 


49B2 


22 


10440 


* 


DEFB 
ENDM 


22H 


49B3 




10450 




HD 


5,STRT,E,CURR-0RH 


49B3 


85 






DEFB 


5+80H 


49B4 


53 






DEFM 


' STRT' 


49B5 


54 










49B6 


41 










49B7 


54 










49B8 


C5 






DEFB 


' E' +80H 


49B9 


0649 






DEFW 
ENDM 


CURR-0RH 


49BB 




10460 


STATE 


DW 


DOUSE 


49BB 


9248 






DEFW 
ENDM 


DOUSE 


49BD 




10470 




DB 


24H 


49BD 


24 


10480 


1 


DEFB 
ENDM 


24H 


49BE 




10490 




HD 


4,BflS,E,STRTE-8 


49BE 


84 






DEFB 


4+80H 



49BF 


42 






DEFM 


' BAS' 


49C0 


41 










49C1 


53 










49C2 


C5 






DEFB 


' E' +80H 


49C3 


B349 






DEFW 
ENDM 


STflTE-8 


49C5 




10500 


Bfi5E 


DW 


DOUSE 


49C5 


9248 






DEFW 
ENDM 


DOUSE 


49C7 




10510 




DB 


26H 


49C7 


26 


10520 


1 


DEFB 
ENDM 


26H 


49CS 




10530 




HD 


3,DP,L,BflSE-7 


49C8 


83 






DEFB 


3+80H 


49C9 


44 






DEFM 


' DP' 


49CR 


50 










49CB 


CC 






DEFB 


' L' +80H 


49CC 


BE49 






DEFW 
ENDM 


BRSE-7 


49CE 




10540 


DPL 


DW 


DOUSE 


49CE 


9248 






DEFW 
ENDM 


DOUSE 


49D0 




10550 




DB 


28H 


49D0 


28 


10560 


» 


DEFB 
ENDM 


28H 


49D1 




10570 




HD 


3,FL,D,DPL-6 


49D1 


83 






DEFB 


3+80H 


49D2 


46 






DEFM 


' FL' 


49D3 


4C 










49D4 


C4 






DEFB 


' D' +80H 


49D5 


C849 






DEFW 
ENDM 


DPL -6 


49D7 




10580 


FLD 


DW 


DOUSE 


49D7 


9248 






DEFW 
ENDM 


DOUSE 


49D9 




10590 




DB 


2AH 


49D9 


2FI 


10600 


» 


DEFB 
ENDM 


2AH 


49DF) 




10610 




HD 


3,CS,P,FLD-6 


49DA 


83 






DEFB 


3+80H 


49DB 


43 






DEFM 


' CS' 


49DC 


53 










49DD 


DO 






DEFB 


' P* +80H 


49DE 


D149 






DEFW 
ENDM 


FLD -6 


49E0 




10620 


C5PP 


DW 


DOUSE 


49E0 


9248 






DEFW 
ENDM 


DOUSE 


49E2 




10630 




DB 


2CH 


49E2 


2C 


10640 


t 


DEFB 
ENDM 


2CH 


49E3 




10650 




DB 


82H 


49E3 


82 






DEFB 
ENDM 


82H 



49E4 




10660 




DM 


R 


49E4 


52 






DEFM 
ENDM 


' R' 


49E5 




10670 




MB 


* 


49E5 


R3 






DEFB 
ENDM 


' *' +80H 


49EB 




10680 




DW 


CSPP-6 


49EG 


DR49 






DEFW 
ENDM 


C5PP-6 


49E8 




10690 


RNUM 


DW 


D0U5E 


49E8 


9248 






DEFW 
ENDM 


D0U5E 


49ER 




10700 




DB 


2EH 


49Efi 


2E 


10710 


f 


DEFB 
ENDM 


2EH 


49EB 




10720 




HD 


3,HL,D,RNUM-5 


49EB 


83 






DEFB 


3+80H 


49EC 


48 






DEFM 


' HL' 


49ED 


4C 










49EE 


C4 






DEFB 


' D' +80H 


49EF 


E349 






DEFW 
ENDM 


RNUM -5 


49F1 




10730 


HLD 


DW2 


DOUSE, 30H 


49F1 


9248 






DEFW 


DOUSE 


49F3 


3000 


10740 


* 


DEFW 
ENDM 


30H 






10750 


; END 


OF U5ER 


URRIRBLES 






10760 


> 






49F5 




10770 




HD 


2,l,+,HLD-6 


49F5 


82 






DEFB 


2+80H 


49F6 


31 






DEFM 


' 1' 


49F7 


RB 






DEFB 


' +' +80H 


49F8 


EB49 






DEFW 
ENDM 


HLD -6 


49FR 




10780 


ONEP 


DW4 


DOCOL , ONE , PLUS , SEMIS 


49FR 


2448 






DEFW 


DOCOL 


49FC 


RR48 






DEFW 


ONE 


49FE 


DC46 






DEFW 


PLUS 


4R00 


5B46 


10790 


• 


DEFW 
ENDM 


SEMIS 


4R02 




10800 




HD 


2,2,+,0NEP-5 


4R02 


82 






DEFB 


2+80H 


4R03 


32 






DEFM 


' 2' 


4R04 


RB 






DEFB 


' +' +80H 


4R05 


F549 






DEFW 
ENDM 


ONEP -5 


4R07 




10810 


TWOP 


DW4 


DOCOL , TWO , PLUS , SEMIS 


4R07 


2448 






DEFW 


DOCOL 


4R09 


B248 






DEFW 


TWO 


4R0B 


DC4S 






DEFW 


PLUS 


4R0D 


5B46 


10820 


» 


DEFW 
ENDM 


SEMIS 


4R0F 




10830 




HD 


4,HER,E,TW0P-5 


4R0F 


84 






DEFB 


4+80H 



4A10 


48 






DEFM 


' HER' 


4A11 


45 










4A12 


52 










4H13 


C5 






DEFB 


' E' +80H 


4A14 


024R 






DEFW 
ENDM 


TWOP-5 


4A16 




10840 


HERE 


DW4 


DOCOL,DP,AT,SEMIS 


4R16 


2448 






DEFW 


DOCOL 


4R18 


5849 






DEFW 


DP 


4R1R 


RA47 






DEFW 


RT 


4R1C 


5B46 


10850 


1 


DEFW 
ENDM 


SEMIS 


4A1E 




10860 




HD 


5,RLL0,T,HERE-7 


4R1E 


85 






DEFB 


5+80H 


4R1F 


41 






DEFM 


' RLLO' 


4R20 


4C 










4R21 


4C 










4R22 


4F 










4R23 


D4 






DEFB 


' T' +80H 


4R24 


0F4R 






DEFW 
ENDM 


HERE -7 


4R2S 




10870 


RLLOT 


DW4 


DOCOL , DP , PSTOR , SEMIS 


4R2G 


2448 






DEFW 


DOCOL 


4R28 


5849 






DEFW 


DP 


4R2R 


8547 






DEFW 


PSTOR 


4R2C 


5B4G 


10880 


1 


DEFW 
ENDM 


SEMIS 


4R2E 




10890 




DB 


81H 


4R2E 


81 






DEFB 
ENDM 


81H 


4R2F 


RC 


10900 




DEFB 


' , ' +80H 


4R30 




10910 




DW 


ALLOT -8 


4R30 


1E4R 






DEFW 
ENDM 


ALLOT-8 


4R32 




10920 


COMMA 


DW6 


DOCOL , HERE .STORE , TWO , ALLOT , SEM I S 


4R32 


2448 






DEFW 


DOCOL 


4R34 


1B4R 






DEFW 


HERE 


4R36 


E147 






DEFW 


STORE 


4R38 


B248 






DEFW 


TWO 


4R3R 


2B4R 






DEFW 


ALLOT 


4R3C 


5B4B 


10930 


f 


DEFW 
ENDM 


SEMIS ■ 


4R3E 




10940 




DB 


82H 


4R3E 


82 






DEFB 
ENDM 


82H 


4R3F 




10950 




DM 


C 


4R3F 


43 






DEFM 
ENDM 


•c 


4R40 


RC 


10960 




DEFB 


' , ' +80H 


4R41 




10970 




DW 


COMMA- 4 


4R41 


2E4A 






DEFW 
ENDM 


COMMA -4 


4R43 




10980 


CCOMM 


DW6 


DOCOL , HERE , CSTOR , ONE .ALLOT . SEM I S 


4R43 


2448 






DEFW 


DOCOL 


4R4S 


1B4R 






DEFW 


HERE 



4047 F047 
4R49 AA48 
4f=l4B 264A 
4fi4D 5B46 



DEFW 
DEFW 
DEFW 
DEFW 
ENDM 



CSTOR 
ONE 
ALLOT 
SEMIS 



10990 
11000 
11010 
11020 
11030 



SUBROUTINE USED BY 
(HL) <- (HL) 



4A4F 


7D 


11040 


4R50 


93 


11050 


485 1 


GF 


11060 


4A52 


7C 


11070 


4A53 


9fl 


11080 


4A54 


67 


11090 


4R55 


C9 


11100 
11110 


4R56 




11120 


4RS6 


81 




4A57 




11130 


4R57 


RD 




4R58 




11140 


4A58 


3E4R 




4A5A 




11150 


4A5A 


5C4R 




4R5C 


Dl 


11160 


4R5D 


El 


11170 


4RSE 


CD4F4R 


11180 


4R61 


C37B43 


11190 
11200 


4R64 




11210 


4R64 


81 




4R65 




11220 


4R65 


BD 




4R6S 




11230 


4R66 


564A 




4R68 




11240 


4R68 


2448 




4R6A 


5R4fl 




4R6C 


B74G 




4R6E 


5B46 


11250 


4R70 




11260 


4R70 


81 




4R71 




11270 


4R71 


BC 





SSUB 



SUBB 



EQUAL 



4R72 



11280 



LD 

SUB 

LD 

LD 

SBC 

LD 

RET 

DB 

DEFB 

ENDM 

MB 

DEFB 

ENDM 

DM 

DEFW 

ENDM 

DW 

DEFW 

ENDM 

POP 

POP 

CALL 

JP 

DB 

DEFB 

ENDM 

MB 

DEFB 

ENDM 

DW 

DEFW 

ENDM 

DW4 

DEFW 

DEFW 

DEFW 

DEFW 

ENDM 

DB 

DEFB 

ENDM 

MB 

DEFB 

ENDM 

DW 



- RND < 

- (DE) 



LB 



HB 



fl.L 

E 

L.R 

A,H 

A,D 

H.fl 



81H 
81H 



' -' +80H 

CCOMM-5 
CCOMM-5 

»+2 
$+2 

DE 
HL 
SSUB 
HPUSH 

81H 
81H 



' -' +80H 

SUBB -4 
SUBB -4 

DOCOL , SUBB , ZEQU , SEMI S 

DOCOL 

SUBB 

ZEQU 

SEMIS 



81H 
81H 



' <' +80H 
EQURL-4 



; x < 



; S2 



si 



4072 


6440 






DEFW 
ENDM 


EQUOL-4 


4074 




11290 


LESS 


DW 


S+2 


4074 


7640 






DEFW 
ENDM 


»+2 


4076 


Dl 


11300 




POP 


DE 5 (DE) <- (SI) - Y 


4077 


El 


11310 




POP 


HL ; (HL) <- (52) - X 


4078 


70 


11320 




LD 


0,D ; IF X&Y HOUE SOME SIGNS 


4079 


OC 


11330 




XOR 


H 


4070 


FO804O 


11340 




JP 


M.LES1 


407D 


CD4F40 


11350 




COLL 


SSUB ; (HL) <- X-Y 


4080 


24 


11360 


LES1 


INC 


H ; IF (HL) >- 


4081 


25 


11370 




DEC 


H 


4082 


F08B40 


11380 




JP 


M , LES2 


4fl85 


210000 


11390 




LD 


HL,0 ; THEN X >= Y 


4088 


C37B43 


11400 




JP 


HPUSH ; (SI ) <- FOLSE 


408B 


210100 


11410 


LES2 


LD 


HL,1 ; ELSE X < Y 


408E 


C37B43 


11420 
11430 


f 


JP 


HPUSH ; (SI) <- TRUE 


4091 




11440 




HD 


2,U,<,LESS-4 


4091 


82 






DEFB 


2+80H 


4092 


55 






DEFM 


' U' 


4093 


BC 






DEFB 


' <' +80H 


4A94 


7040 






DEFW 
ENDM 


LESS -4 


4096 




11450 


ULESS 


DW5 


DOCOL , TDUP , XORR , 2LESS , ZBRON 


4096 


2448 






DEFW 


DOCOL 


4098 


7747 






DEFW 


TDUP 


4090 


FC45 






DEFW 


XORR 


409C 


C046 






DEFW 


2LESS 


409E 


C643 






DEFW 
ENDM 


ZBRON 


4000 




11460 




DW6 


ULES1 -S , DROP , ZLESS , 2EQU , BRON , ULES2-S 


4000 


0C00 






DEFW 


ULES1-S 


4002 


4F47 






DEFW 


DROP 


4004 


C046 






DEFW 


ZLESS 


4006 


B746 






DEFW 


ZEQU 


4008 


0F43 






DEFW 


BRON 


4000 


0600 






DEFW 
ENDM 


ULES2-S 


400C 




11470 


ULES1 


DW2 


SUBB , ZLESS 


400C 


5040 






DEFW 


SUBB 


400E 


C046 






DEFW 
ENDM 


ZLESS 


4OB0 




11480 


ULES2 


DW 


SEMIS 


4OB0 


5B46 


11490 


• 


DEFW 
ENDM 


SEMIS 


40B2 




11500 




DB 


81H 


40B2 


81 






DEFB 
ENDM 


91H 


40B3 




11510 




MB 


> 


40B3 


BE 






DEFB 
ENDM 


' >' +80H 


40B4 




11520 




DW 


ULESS-5 


40B4 


9140 






DEFW 
ENDM 


ULESS -5 


40B6 




11530 


GREOT 


DW4 


DOCOL , SWOP , LESS , SEMIS 



4RB6 


2448 






DEFW 


DOCOL 




4RB8 


5C4? 






DEFW 


SWRP 




4RBR 


744R 






DEFW 


LESS 




4RBC 


5B46 


11540 


« 


DEFW 
ENDM 


SEMIS 




4RBE 




11550 




HD 


3,R0,T,GRERT-4 




4RBE 


83 






DEFB 


3+80H 




4RBF 


52 






DEFM 


' RO' 




4RC0 


4F 












4flCl 


D4 






DEFB 


' T +80H 




4RC2 


B24R 






DEFW 
ENDM 


GRERT-4 




4AC4 




11560 


ROT 


DW 


S+2 




4RC4 


C64R 






DEFW 
ENDM 


$+2 




4RC6 


Dl 


11570 




POP 


DE 




4RC7 


El 


11580 




POP 


HL 




4RC8 


E3 


11590 




EX 


( SP ) , HL 




4RC9 


C37R43 


11600 
11610 


1 


JP 


DPUSH 




4RCC 




11620 




HD 


5,SPRC,E,R0T-6 




4RCC 


85 






DEFB 


5+80H 




4RCD 


53 






DEFM 


' SPRC 




4RCE 


50 












4RCF 


41 












4RD0 


43 












4RD1 


C5 






DEFB 


' E' +80H 




4RD2 


BE4R 






DEFW 
ENDM 


ROT-S 




4RD4 




11630 


SPACE 


DW4 


DOCOL, BL, EMIT, SEMIS 




4RD4 


2448 






DEFW 


DOCOL 




4RDG 


C348 






DEFW 


BL 




4RD8 


0745 






DEFW 


EMIT 




4RDR 


5B46 


11640 


» 


DEFW 
ENDM 


SEMIS 




4RDC 




11650 




HD 


4,-DU,P,SPRCE-8 




4RDC 


84 






DEFB 


4+80H 




4RDD 


2D 






DEFM 


' -DU' 




4RDE 


44 












4RDF 


55 












4RE0 


D0 






DEFB 


' P' +80H 




4RE1 


CC4R 






DEFW 
ENDM 


SPRCE-8 




4RE3 




11660 


DDUP 


DW5 


DOCOL , DUP , 2BRRN , DDUP1 • 


-S.DUP 


4RE3 


2448 






DEFW 


DOCOL 




4RES 


6947 






DEFW 


DUP 




4RE7 


C643 






DEFW 


2BRAN 




4AE9 


0400 






DEFW 


DDUP1-S 




4REB 


6847 






DEFW 
ENDM 


DUP 




4RED 




11670 


DDUP1 


DW 


SEMIS 




4RED 


5B46 


11680 


* 


DEFW 
ENDM 


SEMIS 




4REF 




11690 




HD 


8,TRRUERS,E,DDUP-7 




4REF 


88 






DEFB 


8+80H 





4RF0 


54 






DEFM 


' TRRUERS' 


4RF1 


52 










4RF2 
4RF3 


41 
56 










4RF4 


45 










4RF5 


52 










4flFG 


53 










4fiF? 


CS 






DEFB 


' E' +88H 


4RF8 


DC4R 






DEFW 
ENDM 


DDUP-7 


4RFR 




11700 


TRRU 


DW2 


DOCOL, SWRP 


4RFR 


2448 






DEFW 


DOCOL 


4RFC 


5C47 






DEFW 
ENDM 


SWRP 


4RFE 




11710 


TRRU1 


DW6 


OUER , PLUS , LIT , 07FH , OYER , CRT 


4flFE 


4047 






DEFW 


OUER 


4B00 


DC46 






DEFW 


PLUS 


4B02 


8D43 






DEFW 


LIT 


4B04 


7F00 






DEFW 


07FH 


4B06 


4047 






DEFW 


OUER 


4B08 


B947 






DEFW 

ENDM 


CRT 


4B0R 




11720 




DW6 


LESS , ZBRRN , TRRU 1 - f , SWRP , DROP . SEM I S 


4B0R 


744R 






DEFW 


LESS 


4B0C 


C643 






DEFW 


ZBRRN 


4B0E 


F0FF 






DEFW 


TRRU1-* 


4B10 


5C47 






DEFW 


SWRP 


4B12 


4F47 






DEFW 


DROP 


4B14 


5B46 


11730 


5 


DEFW 
ENDM 


SEMIS 


4B16 




11740 




HD 


B,LRTES,T,TRRU-0BH 


4B16 


86 






DEFB 


6+80H 


4B17 


4C 






DEFM 


' LRTES' 


4B18 


41 










4B19 


54 










4B1R 


45 










4B1B 


53 










4B1C 


D4 






DEFB 


' T' +80H 


4B1D 


EF4R 






DEFW 
ENDM 


TRRU-0BH 


4B1F 




11750 


LRTES 


DW5 


DOCOL , CURR , RT , RT , SEM I S 


4B1F 


2448 






DEFW 


DOCOL. 


4B21 


B049 






DEFW 


CURR 


4B23 


RR47 






DEFW 


RT 


4B25 


RR47 






DEFW 


RT 


4B27 


5B4S 


11768 


* 


DEFW 
ENDM 


SEMIS 


4B29 




11770 




HD 


3,LF,fl,LRTES-9 


4B29 


83 






DEFB 


3+80H 


4B2R 


4C 






DEFM 


' LF' 


4B2B 


46 










4B2C 


CI 






DEFB 


' R' +80H 


4B2D 


164B 






DEFW 
ENDM 


LRTES -9 


4B2F 




11780 


LFR 


DW5 


DOC0L,LIT,4,SUBB,SEMIS 


4B2F 


2448 






DEFW 


DOCOL 



4B31 


8D43 






DEFW 


LIT 


4B33 


0400 






DEFW 


4 


4B35 


5A4A 






DEFW 


SUBB 


4B37 


5B46 


11790 


t 


DEFW 
ENDM 


SEMIS 


4B39 




11800 




HD 


3,CF,fl,LFA-S 


4B33 


83 






DEFB 


3+80H 


4B3A 


43 






DEFM 


' CF' 


4B3B 


46 










4B3C 


CI 






DEFB 


' A' +80H 


4B3D 


294B 






DEFW 
ENDM 


LFA-6 


4B3F 




11810 


CFA 


DW4 


DOCOL , TWO , SUBB , SEMIS 


4B3F 


2448 






DEFW 


DOCOL 


4B41 


B248 






DEFW 


TWO 


4B43 


5A4A 






DEFW 


SUBB 


4B45 


5B46 


11820 


f 


DEFW 
ENDM 


SEMIS 


4B47 




11830 




HD 


3,NF,A,CFA-6 


4B47 


83 






DEFB 


3+80H 


4B48 


4E 






DEFM 


' NF' 


4B49 


46 










4B4A 


CI 






DEFB 


' A' +80H 


4B4B 


394B 






DEFW 
ENDM 


CFA-6 


4B4D 




11840 


NFA 


DW8 


DOCOL , LIT , 5 , SUBB , LIT , - 1 , TRAU . SEMIS 


4B4D 


2448 






DEFW 


DOCOL 


4B4F 


8D43 






DEFW 


LIT 


4B51 


0500 






DEFW 


5 


4B53 


SA4A 






DEFW 


SUBB 


4B55 


8D43 






DEFW 


LIT 


4BS7 


FFFF 






DEFW 


-1 


4B59 


FA4A 






DEFW 


TRAU 


4B5B 


5B46 


11850 


> 


DEFW 
ENDM 


SEMIS 


4B5D 




11860 




HD 


3,PF,A,NFA-6 


4B5D 


83 






DEFB 


3+80H 


4B5E 


50 






DEFM 


' PF' 


4B5F 


46 










4B60 


CI 






DEFB 


' A' +80H 


4B61 


474B 






DEFW 
ENDM 


NFA-6 


4B63 




11870 


PFA 


DW7 


DOCOL , ONE, TRAU , LIT , 5 , PLUS , SEMIS 


4B63 


2448 






DEFW 


DOCOL 


4BG5 


AA48 






DEFW 


ONE 


4B67 


FA4A 






DEFW 


TRAU 


4B69 


8D43 






DEFW 


LIT 


4B6B 


0500 






DEFW 


5 


4B6D 


DC46 






DEFW 


PLUS 


4B6F 


5B46 


11880 


» 


DEFW 
ENDM 


SEMIS 


4B71 




11890 




HD 


4, !CS,P,PFA-6 


4B71 


84 






DEFB 


4+80H 


4B72 


21 






DEFM 


' !CS' 



4B73 


43 










4B74 


53 










4B75 


D0 






DEFB 


' P' +80H 


4B76 


5D4B 






DEFW 
ENDM 


PFA-6 


4B78 




11900 


5CSP 


DW5 


DOCOL , SPAT , CSPP , STORE , SEN IS 


4B78 


2448 






DEFW 


DOCOL 


4B7A 


0F46 






DEFW 


SPAT 


4B7C 


E049 






DEFW 


CSPP 


4B7E 


E147 






DEFW 


STORE 


4B80 


5B46 


11910 


* 


DEFW 
ENDM 


SEMIS 


4B82 




11920 




HD 


6,?ERR0,R,SCSP-7 


4B82 


86 






DEFB 


6+80H 


4BS3 


3F 






DEFM 


' 7ERR0' 


4B84 


45 










4B85 


52 










4B86 
4B87 


52 

4F 










4B88 


D2 






DEFB 


' R' +80H 


4B89 


714B 






DEFW 
ENDM 


SCSP-7 


4B8B 




11930 


QERR 


DW7 


DOCOL, SWfiP,ZBRflN,QERRl-*, ERROR, BRRN.QERR2-* 


4B8B 


2448 






DEFW 


DOCOL 


4B8D 


5C47 






DEFW 


SWAP 


4B8F 


CG43 






DEFW 


ZBRAN 


4B31 


0800 






DEFW 


QERR1-* 


4B93 


2450 






DEFW 


ERROR 


4B35 


AF43 






DEFW 


BRAN 


4B37 


0400 






DEFW 
ENDM 


QERR2-* 


4B99 




11940 


QERR1 


DW 


DROP 


4B99 


4F47 






DEFW 
ENDM 


DROP 


4B9B 




11950 


QERR2 


DW 


SEMIS 


4B9B 


5B4G 


11960 


* 


DEFW 
ENDM 


SEMIS 


4B3D 




11970 




HD 


5,?C0M,P,QERR-9 


4B9D 


85 






DEFB 


5+80H 


4B9E 


3F 






DEFM 


' 7C0M' 


4B9F 


43 










4BA0 


4F 










4BA1 


4D 










4BA2 


D0 






DEFB 


' P' +80H 


4BA3 


824B 






DEFW 
ENDM 


QERR -9 


4BA5 




11980 


QCOMP 


DW8 


DOCOL, STATE, AT, ZEQU, LIT, UH, QERR, SEMIS 


4BA5 


2448 






DEFW 


DOCOL 


4BA7 


BB49 






DEFW 


STATE 


4BA9 


AA47 






DEFW 


AT 


4BAB 


B746 






DEFW 


2EQU 


4BAD 


8D43 






DEFW 


LIT 


48AF 


1100 






DEFW 


11H 


4BB1 


8B4B 






DEFW 


QERR 


4BB3 


SB46 






DEFW 
ENDM 


SEMIS 







11890 


* 






4BB5 




12000 




HD 


5,?EXE,C,QC0MP-8 


4BB5 


85 






DEFB 


5+80H 


4BB6 


3F 






DEFM 


' ?EXE' 


4BB7 


45 










4BB8 


58 










4BB9 


45 










4BBA 


C3 






DEFB 


' C +80H 


4BBB 


9D4B 






DEFW 
ENDM 


QCOMP-8 


4BBD 




12010 


QEXEC 


DW7 


DOCOL, STATE, AT , LIT , 12H , QERR , SEMIS 


4BBD 


2448 






DEFW 


DOCOL 


4BBF 


BB49 






DEFW 


STATE 


4BC1 


AA47 






DEFW 


AT 


4BC3 


8D43 






DEFW 


LIT 


4BC5 


1200 






DEFW 


12H 


4BC7 


8B4B 






DEFW 


QERR 


4BC9 


5B4G 


12020 


» 


DEFW 
ENDM 


SEMIS 


4BCB 




12030 




HD 


6,?PAIR,S,QEXEC-8 


4BCB 


86 






DEFB 


6+80H 


4BCC 


3F 






DEFM 


' 7PAIR' 


4BCD 


50 










4BCE 


41 










4BCF 


49 










4BD0 


52 










4BD1 


D3 






DEFB 


' S' +80H 


4BD2 


B54B 






DEFW 
ENDM 


QEXEC -8 


4BD4 




12040 


QPAIR 


DW6 


DOCOL , SUBB , LIT , 13H , QERR , SEMIS 


4BD4 


2448 






DEFW 


DOCOL 


4BDG 


5A4A 






DEFW- 


SUBB 


4BD8 


8D43 






DEFW 


LIT 


4BDA 


1300 






DEFW 


13H 


4BDC 


8B4B 






DEFW 


QERR 


4BDE 


5B46 


12050 


» 


DEFW 
ENDM 


SEMIS 


4BE0 




12060 




HD 


4,?CS,P,QPAIR-9 


4BE0 


84 






DEFB 


4+80H 


4BE1 


3F 






DEFM 


' ?CS' 


4BE2 


43 










4BE3 


53 










4BE4 


D0 






DEFB 


' P' +80H 


4BE5 


CB4B 






DEFW 
ENDM 


QPAIR-9 


4BE7 




12070 


QCSP 


DW5 


DOCOL , SPAT , CSPP , AT , SUBB 


4BE7 


2448 






DEFW 


DOCOL 


4BE9 


0F46 






DEFW 


SPAT 


4BEB 


E049 






DEFW 


CSPP 


4BED 


AA47 






DEFW 


AT 


4BEF 


5A4A 






DEFW 
ENDM 


SUBB 


4BF1 




12080 




DW4 


LIT, 14H, QERR, SEMIS 


4BF1 


8D43 






DEFW 


LIT 


4BF3 


1400 






DEFW 


14H 


4BF5 


8B4B 






DEFW 


QERR 



4BF? 


5B4G 


12090 ; 


DEFW 
ENDM 


SEMIS 




4BF9 




12100 


HD 


8,?L0ADIN,G,QCSP-7 




4BF9 


83 




DEFB 


8+80H 




4BFA 


3F 




DEFM 


' 7L0ADIN' 




4BFB 


4C 










4BFC 


4F 










4BFD 


41 










4BFE 


44 










4EFF 


48 










4C00 


4E 










4C01 


C7 




DEFB 


' G' +80H 




4C02 


E04B 




DEFW 
ENDM 


QCSP-7 




4C04 




12110 QLOflD 


DW8 


DOCOL , ELK , AT , ZEQU , LIT , 16H . QERR , 


, SEMIS 


4C04 


2448 




DEFW 


DOCOL 




4C06 


7049 




DEFW 


BLK 




4C08 


AA47 




DEFW 


AT 




4C0A 


B746 




DEFW 


ZEQU 




4C0C 


8D43 




DEFW 


LIT 




4C0E 


1600 




DEFW 


16H 




4C10 


8B4B 




DEFW 


QERR 




4C12 


5B4G 


12120 ; 


DEFW 
ENDM 


SEMIS 




4C14 




12130 


HD 


7,COMPIL,E,QLOAD-0BH 




4C14 


87 




DEFB 


7+80H 




4C15 


43 




DEFM 


' CQMPIL' 




4C16 


4F 










4C17 


4D 










4C18 


50 










4C19 


49 










4C1A 


4C 










4C1B 


C5 




DEFB 


' E' +80H 




4C1C 


F94B 




DEFW 
ENDM 


QLORD-0BH 




4C1E 




12140 COMP 


DW5 


DOCOL , QCOMP , FROMR , DUP , TWOP 




4C1E 


2448 




DEFW 


DOCOL 




4C20 


A54B 




DEFW 


QCOMP 




4C22 


9C4G 




DEFW 


FROMR 




4C24 


6947 




DEFW 


DUP 




4C26 


074A 




DEFW 
ENDM 


TWOP 




4C28 




12150 


DW4 


TOR, AT, COMMA, SEMIS 




4C28 


8646 




DEFW 


TOR 




4C2A 


AA47 




DEFW 


AT 




4C2C 


324A 




DEFW 


COMMA 




4C2E 


5B4S 


12160 ; 


DEFW 
ENDM 


SEMIS 




4C38 




12170 


DB 


0C1H 




4C30 


CI 




DEFB 
ENDM 


0C1H 




4C31 




12180 


DB 


0DBH ; LBRAC 




4C31 


DB 




DEFB 
ENDM 


0DBH 




4C32 




12190 


DW 


COMP-0AH 





4C32 


144C 






DEFW 
ENDM 


COMP-0AH 


4C34 




12200 


LBRAC 


DW5 


DOCOL , ZERO , STATE , STORE , SEN IS 


4C34 


2448 






DEFW 


DOCOL 


4C36 


A248 






DEFW 


ZERO 


4C38 


BB43 






DEFW 


STATE 


4C3R 


E147 






DEFW 


STORE 


4C3C 


5B46 


12210 


t 


DEFW 
ENDM 


SEMIS 


4C3E 




12220 




DB 


81H 


4C3E 


81 






DEFB 
ENDM 


81H 


4C3F 




12230 




DB 


0DDH ; RBRAC 


4C3F 


DD 






DEFB 
ENDM 


0DDH 


4C40 




12240 




DW 


LBRAC-4 


4C40 


304C 






DEFW 
ENDM 


LBRAC -4 


4C42 




12250 


RBRAC 


DWG 


DOCOL , LIT , 0C0H , STATE , STORE . SEM IS 


4C42 


2448 






DEFW 


DOCOL 


4C44 


8D43 






DEFW 


LIT 


4C46 


C000 






DEFW 


0C0H 


4C48 


BB49 






DEFW 


STATE 


4C4A 


E147 






DEFW 


STORE 


4C4C 


5B46 


122G0 


1 


DEFW 
ENDM 


SEMIS 


4C4E 




12270 




HD 


6,SMUDG,E,RBRAC-4 


4C4E 


86 






DEFB 


6+80H 


4C4F 


53 






DEFM 


' SMUDG' 


4C50 


4D 










4C51 


55 










4C52 


44 










4C53 


47 










4C54 


CS 






DEFB 


' E' +80H 


4C55 


3E4C 






DEFW 
ENDM 


RBRAC -4 


4C57 




12280 


SMUDG 


DWG 


DOCOL, LATES, LIT, 20H.TOGGL, SEMIS 


4C57 


2448 






DEFW 


DOCOL 


4C59 


1F4B 






DEFW 


LATES 


4C5B 


8D43 






DEFW 


LIT 


4C5D 


2000 






DEFW 


20H 


4C5F 


9C47 






DEFW 


TOGGL 


4CB1 


5B46 


12290 


f 


DEFW 
ENDM 


SEMIS 


4CB3 




12300 




HD 


3,HE,X,SMUDG-9 


4CG3 


83 






DEFB 


3+80H 


4C64 


48 






DEFM 


' HE' 


4CB5 


45 










4CBG 


D8 






DEFB 


' X' +80H 


4C67 


4E4C 






DEFW 
ENDM 


SMUDG -9 


4C69 




12310 


HEX 


DW6 


DOCOL, LIT, 10H, BASE, STORE, SEMIS 


4CG9 


2448 






DEFW 


DOCOL 


4C6B 


8D43 






DEFW 


LIT 


4CGD 


1000 






DEFW 


10H 



4C6F C549 
4C71 E147 
4C73 5B46 



4C75 
4C75 87 
4C7B 44 
4C77 45 
4C78 43 
4C79 49 
4C7R 4D 
4C7B 41 
4C7C CC 
4C7D 634C 

4C7F 

4C7F 2448 

4C81 8D43 

4C83 01=100 

4C85 C549 

4C87 El 47 

4C89 5B46 



4C8B 
4C8B 87 

4C8C 28 
4C8D 3B 
4C8E 43 
4C8F 4F 
4C90 44 
4C91 45 
4C92 
4C92 R9 

4C93 
4C93 754C 



4C95 
4C95 
4C97 
4C99 
4C9B 
4C9D 
4C9F 
4CR1 



2448 
9C46 
1F4B 
G34B 
3F4B 
E147 
5B46 



4CR3 
4CR3 C5 

4CR4 3B 
4CR5 43 
4CRG 4F 
4CR7 44 
4CR8 



12320 
12330 



12340 DEC 



12350 ; 
12360 



12370 



12380 



12390 



12400 P5C0D 



12410 ; 
12420 



12430 



12440 



DEFW 


BRSE 


DEFW 


STORE 


DEFW 


SEMIS 


ENDM 




HD 


7,DECIMfl,L,HEX-G 


DEFB 


7+80H 


DEFM 


' DECIMfl' 



DEFB 

DEFW 

ENDM 

DW6 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

ENDM 

DB 

DEFB 
ENDM 
DEFM 



MB 

DEFB 

ENDM 

DW 

DEFW 

ENDM 

DW7 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

ENDM 

DB 

DEFB 
ENDM 
DEFM 



MB 



' L' +80H 
HEX-G 

DOCOL, LIT, 0RH, BRSE, STORE, SEMIS 

DOCOL 

LIT 

0RH 

BASE 

STORE 

SEMIS 



87H 
87H 

' ( ; CODE' 



) 
' )' +80H 

DEC-0RH 
DEC-0RH 



DOCOL , FROMR , LflTES , PFR , CFR , STORE , SEMIS 

DOCOL 

FROMR 

LflTES 

PFR 

CFR 

STORE 

SEMIS 



0C5H 
0C5H 

' ;COD' 



4CR8 


C5 






DEFB 
ENDM 


' E' +80H 




4CR9 




12450 




DW 


PSCOD-0RH 




4CR9 


8B4C 






DEFW 
ENDM 


PSCOD-0RH 




4CRB 




12460 


SEMIC 


DW5 


DOCOL , QCSP . COMP , PSCOD , LBRRC 




4CRB 


2448 






DEFW 


DOCOL 




4CRD 


E74B 






DEFW 


QCSP 




4CRF 


1E4C 






DEFW 


COMP 




4CB1 


954C 






DEFW 


PSCOD 




4CB3 


344C 






DEFW 
ENDM 


LBRRC 




4CB5 




12470 


SEMI1 


DW2 


NOOP, SEMIS 




4CB5 


4D48 






DEFW 


NOOP 




4CB7 


5B46 


12480 


• 


DEFW 
ENDM 


SEMIS 




4CB9 




12490 




HD 


7,<BUILD,S,SEMIC-8 




4CB9 


87 






DEFB 


7+80H 




4CBR 


3C 






DEFM 


' < BUILD' 




4CBB 


42 












4CBC 


55 












4CBD 


49 












4CBE 


4C 












4CBF 


44 












4CC0 


D3 






DEFB 


' S' +80H 




4CC1 


R34C 






DEFW 
ENDM 


SEMIC-8 




4CC3 




12500 


BUILD 


DW4 


DOCOL, ZERO , CON, SEMIS 




4CC3 


2448 






DEFW 


DOCOL 




4CC5 


R248 






DEFW 


ZERO 




4CC7 


5C48 






DEFW 


CON 




4CC9 


5B46 


12510 


f 


DEFW 
ENDM 


SEMIS 




4CCB 




12520 




HD 


5, DOES, >,BUILD-0RH 




4CCB 


85 






DEFB 


5+80H 




4CCC 


44 






DEFM 


' DOES' 




4CCD 


4F 












4CCE 


45 












4CCF 


53 












4CD0 


BE 






DEFB 


' >' +80H 




4CD1 


B94C 






DEFW 
ENDM 


BUILD-0RH 




4CD3 




12530 


DOES 


DW6 


DOCOL , FROMR , LRTES , PFR , STORE , 


PSCOD 


4CD3 


2448 






DEFW 


DOCOL 




4CDS 


9C4G 






DEFW 


FROMR 




4CD7 


1F4B 






DEFW 


LRTES 




4CD9 


634B 






DEFW 


PFR 




4CDB 


El 47 






DEFW 


STORE 




4CDD 


954C 






DEFW 
ENDM 


PSCOD 




4CDF 


2R7843 


12540 


DODOE 


LD 


HL, CRPP) 




4CE2 


2B 


12550 




DEC 


HL 




4CE3 


70 


12560 




LD 


C HL ) , B 




4CE4 


2B 


12570 




DEC 


HL 




4CE5 


71 


12580 




LD 


( HL ) , C 




4CEB 


227843 


12590 




LD 


( RPP ) , HL 





4CE9 


13 


12600 




INC 


DE 


4CEA 


EB 


12610 




EX 


DE.HL 


4CEB 


4E 


12620 




LD 


C , ( HL ) 


4CEC 


23 


12630 




INC 


HL 


4CED 


46 


12640 




LD 


B.(HL) 


4CEE 


23 


12650 




INC 


HL 


4CEF 


C37B43 


12660 
12670 


I 


JP 


HPUSH 


4CF2 




12680 




HD 


5,C0UN,T,D0ES-8 


4CF2 


95 






DEFB 


5+80H 


4CF3 


43 






DEFM 


' COUN' 


4CF4 


4F 










4CF5 


55 










4CFS 


4E 










4CF7 


D4 






DEFB 


' T' +80H 


4CF8 


CB4C 






DEFW 
ENDM 


DOES-8 


4CFA 




12690 


COUNT 


DW6 


DOCOL , DUP , ONEP , SWAP , CAT , SEMIS 


4CFA 


2448 






DEFW 


DOCOL 


4CFC 


6947 






DEFW 


DUP 


4CFE 


FA49 






DEFW 


ONEP 


4D0B 


5C47 






DEFW 


SWAP 


4D02 


B947 






DEFW 


CRT 


4D04 


5B46 


12700 


> 


DEFW 
ENDM 


SEMIS 


4D06 




12710 




HD 


4,TYP,E,C0UNT-9 


4D06 


84 






DEFB 


4+80H 


4D07 


54 






DEFM 


'TYP' 


4D08 


59 










4D09 


50 










4D0A 


C5 






DEFB 


' E' +80H 


4D0B 


F24C 






DEFW 
ENDM 


COUNT-8 


4D0D 




12720 


TYPE 


DW8 


DOCOL , DDUP , ZBRAN , TYPE1 - $ , OUER . PLUS . SWAP , XDO 


4D0D 


2448 






DEFW 


DOCOL 


4D0F 


E34A 






DEFW 


DDUP 


4D11 


C643 






DEFW 


ZBRAN 


4D13 


1800 






DEFW 


TYPE1-* 


4D15 


4047 






DEFW 


OUER 


4D17 


DC46 






DEFW 


PLUS 


4D19 


5C47 






DEFW 


SWAP 


4D1B 


1F44 






DEFW 
ENDM 


XDO 


4D1D 




12730 


TYPE2 


DW7 


IDO, CAT, EMIT, XLOOP, TYPE2-*. BRAN. TYPE3-S 


4D1D 


3B44 






DEFW 


I DO 


4D1F 


B947 






DEFW 


CAT 


4D21 


0745 






DEFW 


EMIT 


4D23 


DA43 






DEFW 


XLOOP 


4D25 


F8FF 






DEFW 


TYPE2-S 


4D27 


AF43 






DEFW 


BRAN 


4D29 


0400 






DEFW 
ENDM 


TYPE3-* 


4D2B 




12740 


TYPE1 


DW 


DROP 


4D2B 


4F47 






DEFW 
ENDM 


DROP 


4D2D 




12750 


TYPE3 


DW 


SEMIS 


4D2D 


5B46 






DEFW 


SEMIS 



ENDM 







12760 


i 






4D2F 




12770 




HD 


9,-TRflILIN,G,TYPE-7 


4D2F 


89 






DEFB 


9+80H 


4D30 


2D 






DEFM 


' -TRAILIN' 


4D31 


54 










4D32 


52 










4D33 


41 










4D34 


49 










4D3S 


4C 










4D36 


49 










4D37 


4E 










4D38 


C7 






DEFB 


' G' +80H 


4D39 


064D 






DEFW 
ENDM 


TYPE-7 


4D3B 




12780 


DTRfll 


DW4 


DOCOL , DUP , ZERO , XDO 


4D3B 


2448 






DEFW 


DOCOL 


4D3D 


6947 






DEFW 


DUP 


4D3F 


A248 






DEFW 


ZERO 


4D41 


1F44 






DEFW 
ENDM 


XDO 


4D43 




12790 


DTRA1 


DW8 


OVER , OUER , PLUS , ONE , SUBB , CAT , BL , SUBB 


4D43 


4047 






DEFW 


OUER 


4D45 


4047 






DEFW 


OUER 


4D47 


DC4S 






DEFW 


PLUS 


4D49 


AFI48 






DEFW 


ONE 


4D4B 


5A4A 






DEFW 


SUBB 


4D4D 


B947 






DEFW 


CRT 


4D4F 


C348 






DEFW 


BL 


4D51 


5A4A 






DEFW 
ENDM 


SUBB 


4D53 




12800 




DW5 


ZBRflN, DTRR2-*, LEAUE, BRAN, DTRA3-S 


4D53 


C643 






DEFW 


ZBRflN 


4D55 


0800 






DEFW 


DTRA2-S 


4D57 


7246 






DEFW 


LEflUE 


4DS9 


AF43 






DEFW 


BRAN 


4D5B 


0600 






DEFW 
ENDM 


DTRA3-S 


4DSD 




12810 


DTRA2 


DW2 


ONE, SUBB 


4DBD 


ftA48 






DEFW 


ONE 


4D5F 


5A4A 






DEFW 
ENDM 


SUBB 


4D61 




12820 


DTRA3 


DW3 


XLOOP, DTRfll -«, SEMIS 


4D61 


DA43 






DEFW 


XLOOP 


4D63 


E0FF 






DEFW 


DTRfll -* 


4D65 


5B46 


12830 


» 


DEFW 
ENDM 


SEMIS 


4D67 




12840 




HD 


4,(.-, ), DTRfll -0CH 


4D67 


84 ■ 






DEFB 


4+80H 


4D68 


28 






DEFM 


* (."' 


4D69 


2E v 










4D6A 


22 










4DGB 


A9 






DEFB 


' )' +80H 


4D6C 


2F4D 






DEFW 
ENDM 


DTRfll -0CH 


4D6E 




12850 


PDOTQ 


DW5 


DOCOL , RR , COUNT , DUP , ONEP 


4D6E 


2448 






DEFW 


DOCOL 



4D70 


B046 






DEFW 


RR 


4D72 


FR4C 






DEFW 


COUNT 


4D74 


G947 






DEFW 


DUP 


4D7G 


FR49 






DEFW 
ENDM 


ONEP 


4D78 




12860 




DW5 


FROMR. PLU5, TOR , TYPE, 5EMIS 


4D78 


9C4G 






DEFW 


FROMR 


4D7R 


DC46 






DEFW 


PLUS 


4D7C 


8646 






DEFW 


TOR 


4D7E 


BD4D 






DEFW 


TYPE 


4D80 


5B46 


12870 


f 


DEFW 
ENDM 


SEMIS 


4D82 




. 12880 




HD 


42H, . , -,PD0TQ-7 


4D82 


C2 






DEFB 


42H+80H 


4D83 


2E 






DEFM 


, 


4D84 


R2 






DEFB 


' " +80H 


4D85 


674D 






DEFW 
ENDM 


PDOTQ-7 


4D87 




12890 


DOTQ 


DW8 


DOCOL, LIT, 22H,STRTE,RT,ZBRRN, DOTQI -S.COMP 


4D87 


2448 






DEFW 


DOCOL 


4D89 


8D43 






DEFW 


LIT 


4D8B 


2200 






DEFW 


22H 


4D8D 


BB49 






DEFW 


STRTE 


4D8F 


RR47 






DEFW 


AT 


4D91 


C643 






DEFW 


ZBRRN 


4D93 


1400 






DEFW 


DOTQ1-* 


4D95 


1E4C 






DEFW 
ENDM 


COMP 


4D97 




12900 




DW8 


PDOTQ , WORD , HERE , CRT , ONEP , RLLOT . BRRN , D0TQ2 -S 


4D97 


6E4D 






DEFW 


PDOTQ 


4D99 


F64E 






DEFW 


WORD 


4D9B 


164R 






DEFW 


HERE 


4D9D 


B947 






DEFW 


CRT 


4D9F 


FR49 






DEFW 


ONEP 


4DR1 


264R 






DEFW 


RLLOT 


4DR3 


RF43 






DEFW 


BRRN 


4DR5 


0R00 






DEFW 
ENDM 


D0TQ2-S 


4Dfi7 




12910 


DOTQi 


DW4 


WORD , HERE , COUNT , TYPE 


4DR7 


F64E 






DEFW 


WORD 


4DR9 


164R 






DEFW 


HERE 


4DflB 


FR4C 






DEFW 


COUNT 


4DRD 


0D4D 






DEFW 
ENDM 


TYPE 


4DRF 




12920 


D0TQ2 


DW 


SEMIS 


4DflF 


5B46 


12930 


■ 


DEFW 
ENDM 


SEMIS 


4DB1 




12940 




HD 


6,EXPEC,T,D0TQ-5 


4DB1 


86 






DEFB 


6+80H 


4DB2 


45 






DEFM 


' EXPEC 


4DB3 


58 










4DB4 


50 










4DBS 


45 










4DB6 


43 










4DB7 


D4 






DEFB 


' T' +80H 


4DB8 


824D 






DEFW 


DOTQ -5 











ENDM 




4DBR 




12850 


EXPEC 


DW5 


DOCOL , OUER , PLUS , OUER , XDO 


4DBR 


2448 






DEFW 


DOCOL 


4DBC 


4047 






DEFW 


OUER 


4DBE 


DC46 






DEFW 


PLUS 


4DC0 


4047 






DEFW 


OUER 


4DC2 


1F44 






DEFW 
ENDM 


XDO 


4DC4 




12860 


EXPE1 


DW8 


KEY , DUP . LIT , 0EH , PORIG , RT . EQUAL , 2BRRN 


4DC4 


1945 






DEFW 


KEY 


4DC6 


6847 






DEFW 


DUP 


4DC8 


8D43 






DEFW 


LIT 


4DCR 


0E00 






DEFW 


0EH 


4DCC 


0B49 






DEFW 


PORIG 


4DCE 


RR47 






DEFW 


RT 


4DD8 


G84R 






DEFW 


EQURL 


4DD2 


C643 






DEFW 
ENDM 


ZBRRN 


4DD4 




12970 




DW8 


EXPE2-S , DROP , DUP , IDO , EQUAL , DUP . FROMR . TWO 


4DD4 


2R00 






DEFW 


EXPE2-* 


4DD6 


4F47 






DEFW 


DROP 


4DD8 


6947 






DEFW 


DUP 


4DDR 


3B44 






DEFW 


IDO 


4DDC 


684R 






DEFW 


EQURL 


4DDE 


6847 






DEFW 


DUP 


4DE0 


8C4G 






DEFW 


FROMR 


4DE2 


B248 






DEFW 
ENDM 


TWO 


4DE4 




12980 




DW8 


SUBB , PLUS , TOR , ZBRRN , EXPE6-* , LIT , BELL . BRAN 


4DE4 


5R4R 






DEFW 


SUBB 


4DEB 


DC46 






DEFW 


PLUS 


4DE3 


8646 






DEFW 


TOR 


4DER 


C643 






DEFW 


ZBRRN 


4DEC 


0A00 






DEFW 


EXPE6-S 


4DEE 


8D43 






DEFW 


LIT 


4DF0 


0700 






DEFW 


BELL 


4DF2 


RF43 






DEFW 
ENDM 


BRRN 


4DF4 




12990 




DW 


EXPE7-S 


4DF4 


0600 






DEFW 
ENDM 


EXPE7-* 


4DF6 




13000 


EXPE6 


DW2 


LIT.BSOUT 


4DF6 


8D43 






DEFW 


LIT 


4DF8 


0800 






DEFW 
ENDM 


BSOUT 


4DFFI 




13010 


EXPE7 


DW2 


BRRN.EXPE3-* 


4DFR 


RF43 






DEFW 


BRRN 


4DFC 


2800 






DEFW 
ENDM 


EXPE3-* 


4DFE 




13020 


EXPE2 


DW8 


DUP , L I T , 0DH , EQURL , ZBRRN , EXPE4 - S . LEAUE .DROP 


4DFE 


6947 






DEFW 


DUP 


4E00 


8D43 






DEFW 


LIT 


4E02 


0D00 






DEFW 


0DH 


4E04 


684R 






DEFW 


EQURL 


4E0G 


C643 






DEFW 


ZBRRN 


4E08 


0E00 






DEFW 


EXPE4-S 


4E0R 


7246 






DEFW 


LERUE 


4E0C 


4F47 






DEFW 


DROP 











ENDM 




4E0E 




13030 




DW4 


BL , ZERO , BRAN , EXPE5-S 


4E0E 


C348 






DEFW 


BL 


4E10 


R248 






DEFW 


ZERO 


4E1Z 


AF43 






DEFW 


BRAN 


4E14 


0400 






DEFW 
ENDM 


EXPE5-* 


4E1S 




13040 


EXPE4 


DW 


DUP 


4E16 


6347 






DEFW 
ENDM 


DUP 


4E18 




13050 


EXPE5 


DW6 


IDO , CSTOR , ZERO , IDO , ONEP , STORE 


4E18 


3B44 






DEFW 


IDO 


4E1A 


F047 






DEFW 


CSTOR 


4E1C 


A248 






DEFW 


ZERO 


4E1E 


3B44 






DEFW 


IDO 


4E20 


FA49 






DEFW 


ONEP 


4E22 


E147 






DEFW 
ENDM 


STORE 


4E24 




13060 


EXPE3 


DW5 


EMIT , XLOOP , EXPE1 -* , DROP , SEMIS 


4E24 


0745 






DEFW 


EMIT 


4E26 


DA43 






DEFW 


XLOOP 


4E28 


9CFF 






DEFW 


EXPE1-S 


4E2A 


4F47 






DEFW 


DROP 


4E2C 


5B46 


13070 




DEFW 
ENDM 


SEMIS 


4E2E 




13080 




HD 


5,QUER,Y,EXPEC-S 


4E2E 


85 






DEFB 


5+80H 


4E2F 


51 






DEFM 


' QUER' 


4E30 


55 










4E31 


45 










4E32 


52 










4E33 


D9 






DEFB 


' Y' +80H 


4E34 


B14D 






DEFW 
ENDM 


EXPEC-9 


4E36 




13030 


QUERY 


DW5 


DOCOL , TIB , AT , LIT , 50H 


4E3S 


2448 






DEFW 


DOCOL 


4E38 


2D49 






DEFW 


TIB 


4E3A 


AA47 






DEFW 


AT 


4E3C 


8D43 






DEFW 


LIT 


4E3E 


5000 






DEFW 
ENDM 


50H 


4E40 




13100 




DW5 


EXPEC , ZERO , I NN , STORE , SEM I S 


4E40 


BA4D 






DEFW 


EXPEC 


4E42 


A248 






DEFW 


ZERO 


4E44 


7843 






DEFW 


INN 


4E4G 


E147 






DEFW 


STORE 


4E48 


5B46 


13110 


t 


DEFW 
ENDM 


SEMIS 


4E4A 




13120 




DB 


0C1H 


4E4fi 


CI 






DEFB 
ENDM 


0C1H 


4E4B 




13130 




DB 


80H 


4E4B 


80 






DEFB 
ENDM 


80H 


4E4C 




13140 




DW 


QUERY -8 


4E4C 


2E4E 






DEFW 


QUERY-8 









ENDM 




4E4E 


13150 


NULL 


DW8 


DOCOL , BLK , RT , ZBRRN , NULL1 - % , ONE , BLK . PSTOR 


4E4E 2448 






DEFW 


DOCOL 


4E50 7049 






DEFW 


BLK 


4E52 RR47 






DEFW 


RT 


4E54 CG43 






DEFW 


ZBRRN 


4E5G 2R00 






DEFW 


NULL1-S 


4E58 RR48 






DEFW 


ONE 


4E5R 7049 






DEFW 


BLK 


4E5C 8547 






DEFW 
ENDM 


P5T0R 


4E5E 


13160 




DW8 


ZERO , INN , STORE , BLK , RT , BSCR , ONE , SUBB 


4E5E R248 






DEFW 


ZERO 


4EB0 7849 






DEFW 


INN 


4EB2 E147 






DEFW 


STORE 


4E64 7049 






DEFW 


BLK 


4E6G RR47 






DEFW 


RT 


4EB8 FD48 






DEFW 


BSCR 


4E6R RR48 






DEFW 


ONE 


4EBC 5R4R 






DEFW 
ENDM 


SUBB 


4E6E 


13170 




DW7 


RNDD , ZEQU , ZBRRN , NULL2-S , QEXEC , FROMR , DROP 


4EBE D745 






DEFW 


RNDD 


4E70 B746 






DEFW 


ZEQU 


4E72 CB43 






DEFW 


ZBRRN 


4E74 0800 






DEFW 


NULL2-* 


4E76 BD4B 






DEFW 


QEXEC 


4E78 9C46 






DEFW 


FROMR 


4E7R 4F47 






DEFW 
ENDM 


DROP 


4E7C 


13180 


NULL2 


DW2 


BRRN.NULL3-* 


4E7C RF43 






DEFW 


BRRN 


4E7E 0600 






DEFW 
ENDM 


NULL3-S 


4ES0 


13190 


NULL1 


DW2 


FROMR, DROP 


4E30 9C46 






DEFW 


FROMR 


4E82 4F47 






DEFW 
ENDM 


DROP 


4E84 


13200 


NULL3 


DW 


SEMIS 


4E84 5B46 


13210 


- » 


DEFW 
ENDM 


SEMIS 


4E86 


13220 




HD 


4,FIL,L,NULL-4 


4E86 84 






DEFB 


4+80H 


4E87 46 






DEFM 


•FIL' 


4E88 49 










4E89 4C 










4EBR CC 






DEFB 


' L' +80H 


4E8B 4R4E 






DEFW 
ENDM 


NULL -4 


4E8D 


13230 


FILL 


DW 


S+2 


4EBD 8F4E 






DEFW 
ENDM 


%+Z 


4E8F 69 


13240 




LD 


L.C 


4E90 60 


13250 




LD 


H,B 


4E91 Dl 


13260 




POP 


DE 


4E92 CI 


13270 




POP 


BC 


4E93 E3 


13280 




EX 


( SP ) , HL 



4E94 


EB 


13290 




EX 


DE.HL 




4E95 


78 


13300 


FILL1 


LD 


R,B 




4E96 


Bl 


13310 




OR 


C 




4E97 


2806 


13320 




JR 


Z.FILL2 




4E99 


7D 


13330 




LD 


ft.L 




4E9A 


12 


13340 




LD 


(DE).fl 




4E9B 


13 


13350 




INC 


DE 




4E9C 


0B 


13360 




DEC 


BC 




4E9D 


18F6 


13370 




JR 


FILL1 




4E9F 


CI 


13380 


FILL2 


POP 


BC 




4EFI0 


C37C43 


13390 
13400 


1 


JP 


NEXT 




4EFI3 




13410 




HD 


S,ERAS,E,FILL-7 




4EA3 


85 






DEFB 


5+80H 




4EA4 


45 






DEFM 


' ERAS' 




4EA5 


52 












4EA6 


41 












4EA7 


53 












4EFI8 


C5 






DEFB 


' E' +80H 




4EA9 


864E 






DEFW 
ENDM 


FILL-7 




4EAB 




13420 


ERASEE 


DW4 


DOCOL , ZERO , FILL , SEMIS 




4EAB 


2448 






DEFW 


DOCOL 




4EAD 


A248 






DEFW 


ZERO 




4EFIF 


8D4E 






DEFW 


FILL 




4EB1 


5B4B 


13430 


I 


DEFW 
ENDM 


SEMIS 




4EB3 




13440 




HD 


8 , BLANK , S , ERASEE-8 




4E33 


86 






DEFB 


S+80H 




4EB4 


42 






DEFM 


* BLANK' 




4EB5 


4C 












4EBG 


41 












4EB7 


4E 












4EB8 


4B 












4EB9 


D3 






DEFB 


' S' +80H 




4EBA 


A34E 






DEFW 
ENDM 


ERASEE-8 




4EBC 




13450 


BLANK 


DW4 


DOCOL, BL, FILL, SEMIS 




4EBC 


2448 






DEFW 


DOCOL 




4EBE 


C348 






DEFW 


BL 




4EC0 


8D4E 






DEFW 


FILL 




4EC2 


5B46 


13460 


f 


DEFW 
ENDM 


SEMIS 




4EC4 




13470 




HD 


4,HOL,D,BLANK-9 




4EC4 


84 






DEFB 


4+80H 




4EC5 


48 






DEFM 


' HOL' 




4ECS 


4F 












4EC7 


4C 












4EC8 


C4 






DEFB 


' D' +80H 




4EC9 


B34E 






DEFW 
ENDM 


BLANK -9 




4ECB 




13480 


HOLD 


DW8 


DOCOL , L IT , - 1 , HLD , PSTOR , HLD , AT , CSTOR 


4ECB 


2448 






DEFW 


DOCOL 




4ECD 


8D43 






DEFW 


LIT 




4ECF 


FFFF 






DEFW 


-1 




4ED1 


F149 






DEFW 


HLD 





4ED3 


8547 






DEFW 


PSTOR 


4ED5 


F149 






DEFW 


HLD 


4ED7 


AA47 






DEFW 


AT 


4ED9 


F047 






DEFW 
ENDM 


CSTOR 


4EDB 




13430 




DW 


SEMIS 


4EDB 


5B46 


13500 


f 


DEFW 
ENDM 


SEMIS 


4EDD 




13510 




HD 


3,PA,D,H0LD-7 


4EDD 


83 






DEFB 


3+80H 


4EDE 


50 






DEFM 


' PA' 


4EDF 


41 










4EE0 


C4 






DEFB 


' D' +80H 


4EE1 


C44E 






DEFW 
ENDM 


HOLD -7 


4EE3 




13520 


PAD 


DW6 


DOCOL , HERE , LIT , 44H , PLUS , SEMIS 


4EE3 


2448 






DEFW 


DOCOL 


4EE5 


164A 






DEFW 


HERE 


4EE7 


8D43 






DEFW 


LIT 


4EE3 


4400 






DEFW 


44H 


4EEB 


DC46 






DEFW 


PLUS 


4EED 


5B4G 


13530 


! 


DEFW 
ENDM 


SEMIS 


4EEF 




13540 




HD 


4,WOR,D,PAD-G 


4EEF 


84 






DEFB 


4+80H 


4EFQ 


57 






DEFM 


' WOR' 


4EF1 


4F 










4EF2 


52 










4EF3 


C4 






DEFB 


' D' +80H 


4EF4 


DD4E 






DEFW 
ENDM 


PAD -6 


4EFG 




13550 


WORD 


DW5 


DOCOL , BLK , AT , ZBRAN , WORD1 -« 


4EF6 


2448 






DEFW 


DOCOL 


4EF8 


7043 






DEFW 


BLK 


4EFA 


AA47 






DEFW 


AT 


4EFC 


C643 






DEFW 


ZBRAN 


4EFE 


0C00 






DEFW 
ENDM 


WORDl-« 


4F00 




13560 




DW5 


BLK , AT , BLOCK , BRAN , W0RD2- » 


4F00 


7049 






DEFW 


BLK 


4F02 


AA47 






DEFW 


AT 


4F04 


6256 






DEFW 


BLOCK 


4F06 


AF43 






DEFW 


BRAN 


4F08 


0600 






DEFW 
ENDM 


W0RD2-S 


4F0A 




13570 


WORD1 


DW2 


TIB, AT 


4F0A 


2D43 






DEFW 


TIB 


4F0C 


AA47 






DEFW 
ENDM 


AT 


4F0E 




13580 


W0RD2 


DW8 


INN, AT, PLUS, SWAP, ENCL, HERE, LIT . 22H 


4F0E 


7849 






DEFW 


INN 


4F10 


AA47 






DEFW 


AT 


4F12 


DC46 






DEFW 


PLUS 


4F14 


5C47 






DEFW 


SWAP 


4F1S 


C744 






DEFW 


ENCL 


4F18 


164 A 






DEFW 


HERE 



4F1A 


8D43 




DEFW 


LIT 


4F1C 


2200 




DEFW 
ENDM 


22H 


4F1E 




13590 


DW8 


BLANK , I NN , PSTOR , OUER , SUBB . TOR , RR , HERE 


4F1E 


BC4E 




DEFW 


BLANK 


4F20 


7849 




DEFW 


INN 


4F22 


8547 




DEFW 


PSTOR 


4F24 


4847 




DEFW 


OUER 


4F26 


5A4A 




DEFW 


SUBB 


4F28 


8646 




DEFW 


TOR 


4F2A 


B046 




DEFW 


RR 


4F2C 


164A 




DEFW 
ENDM 


HERE 


4F2E 




13600 


DW7 


CSTOR , PLUS , HERE , ONEP , FROMR , CMOC'E , SEM I S 


4F2E 


F047 




DEFW 


CSTOR 


4F30 


DC46 




DEFW 


PLUS 


4F32 


164A 




DEFW 


HERE 


4F34 


FA49 




DEFW 


ONEP 


4F36 


9C46 




DEFW 


FROMR 


4F38 


4445 




DEFW 


CMOUE 


4F3A 


5B46 


13610 ; 


DEFW 
ENDM 


SEMIS 


4F3C 




13620 


HD 


8, (NUMBER, ),W0RD-7 


4F3C 


88 




DEFB 


8+80H 


4F3D 


28 




DEFM 


' ( NUMBER' 


4F3E 


4E 








4F3F 


55 








4F40 


4D 








4F41 


42 








4F42 


45 








4F43 


52 








4F44 


A9 




DEFB 


' )' +80H 


4F45 


EF4E 




DEFW 
ENDM 


WORD -7 


4F47 




13630 PNUMB 


DW 


DOCOL 


4F47 


2448 




DEFW 
ENDM 


DOCOL 


4F49 




13640 PNUM1 


DW8 


ONEP , DUP , TOR , CAT , BASE , AT , DIGIT , ZBRAN 


4F49 


FA49 




DEFW 


ONEP 


4F4B 


6947 




DEFW 


DUP 


4F4D 


8646 




DEFW 


TOR 


4F4F 


B947 




DEFW 


CAT 


4F51 


C549 




DEFW 


BASE 


4F53 


AA47 




DEFW 


AT 


4F55 


4F44 




DEFW 


DIGIT 


4F57 


C643 




DEFW 
ENDM 


ZBRAN 


4F59 




13650 


DW8 


PNUM2 - » , SWAP , BASE , AT , USTAR .DROP, ROT, BASE 


4F59 


2C00 




DEFW 


PNUM2-S 


4F5B 


5C47 




DEFW 


SWAP 


4F5D 


C549 




DEFW 


BASE 


4F5F 


AA47 




DEFW 


AT 


4F61 


5645 




DEFW 


USTAR 


4FB3 


4F47 




DEFW 


DROP 


4F65 


C44A 




DEFW 


ROT 


4F67 


C549 




DEFW 
ENDM 


BASE 



4FS8 




13660 




DW8 


AT , USTAR , DPLUS , DPL , AT , ONEP , ZBR AN , PNUM3 - « 


4F69 


AA47 






DEFW 


AT 


4FSB 


5645 






DEFW 


USTAR 


4F6D 


E946 






DEFW 


DPLUS 


4FBF 


CE49 






DEFW 


DPL 


4F71 


AA47 






DEFW 


AT 


4F73 


FA49 






DEFW 


ONEP 


4F75 


C643 






DEFW 


ZBRflN 


4F77 


0800 






DEFW 
ENDM 


PNUM3-S 


4F79 




13670 




DW3 


ONE.DPL.PSTOR 


4F79 


AA48 






DEFW 


ONE 


4F7B 


CE49 






DEFW 


DPL 


4F7D 


8547 






DEFW 
ENDM 


PSTOR 


4F7F 




13680 


PNUM3 


DW3 


FROMR , BRAN , PNUM 1 - * 


4F7F 


9C4G 






DEFW 


FROMR 


4F81 


AF43 






DEFW 


BRAN 


4F83 


CGFF 






DEFW 
ENDM 


PNUM1-S 


4F85 




13690 


PNUM2 


DW2 


FROMR, SEMIS 


4F85 


9C4B 






DEFW 


FROMR 


4F87 


5B4G 


13700 


t 


DEFW 
ENDM 


SEMIS 


4F39 




13710 




HD 


6 , NUMBE , R , PNUMB - 0BH 


4F89 


86 






DEFB 


6+80H 


4F8A 


4E 






DEFM 


' NUMBE' 


4F8B 


55 










4F8C 


4D 










4F8D 


42 










4F8E 


45 










4F8F 


D2 






DEFB 


' R' +80H 


4F90 


3C4F 






DEFW 
ENDM 


PNUMB -0BH 


4F92 




13720 


NUMB 


DW8 


DOCOL , ZERO , ZERO , ROT , DUP , ONEP . CAT .LIT 


4F92 


2448 






DEFW 


DOCOL 


4F94 


A248 






DEFW 


ZERO 


4F96 


A248 






DEFW 


ZERO 


4F98 


C44A 






DEFW 


ROT 


4F9A 


6947 






DEFW 


DUP 


4F9C 


FA49 






DEFW 


ONEP 


4F9E 


B947 






DEFW 


CAT 


4FA0 


8D43 






DEFW 
ENDM 


LIT 


4FA2 




13730 




DW7 


2DH , EQUAL , DUP , TOR , PLUS , LIT , - 1 


4FA2 


2D00 






DEFW 


2DH 


4FA4 


684A 






DEFW 


EQUAL 


4FA6 


6947 






DEFW 


DUP 


4FA8 


8646 






DEFW 


TOR 


4FAA 


DC46 






DEFW 


PLUS 


4FflC 


8D43 






DEFW 


LIT 


4FAE 


FFFF 






DEFW 
ENDM 


-1 


4FB0 




13740 


NUMB1 


DW8 


DPL , STORE , PNUMB , DUP , CAT , BL . SUBB . ZBRAN 


4FB0 


CE49 






DEFW 


DPL 


4FB2 


E147 






DEFW 


STORE 


4FB4 


474F 






DEFW 


PNUMB 



4FBB 


6947 






DEFW 


DUP 


4FB8 


B947 






DEFW 


CAT 


4FBfl 


C348 






DEFW 


BL 


4FBC 


5A4A 






DEFW 


SUBB 


4FBE 


CB43 






DEFW 
ENDM 


ZBRAN 


4FC0 




13750 




DW8 


NUMB2-* , DUP , CAT , LIT , 2EH , SUBB , ZERO . QERR 


4FC0 


1600 






DEFW 


NUMB2-* 


4FC2 


6947 






DEFW 


DUP 


4FC4 


B947 






DEFW 


CAT 


4FCG 


8D43 






DEFW 


LIT 


4FC8 


2E00 






DEFW 


2EH 


4FCA 


5A4A 






DEFW 


SUBB 


4FCC 


A248 






DEFW 


ZERO 


4FCE 


8B4B 






DEFW 
ENDM 


QERR 


4FD0 




13760 




DW3 


ZERO, BRAN, NUMB1-S 


4FD0 


A248 






DEFW 


ZERO 


4FD2 


AF43 






DEFW 


BRAN 


4FD4 


DCFF 






DEFW 
ENDM 


NUMB1-S 


4FD6 




13770 


NUMB2 


DW5 


DROP , FROMR , ZBRAN , NUMB3 - « , DMINU 


4FD6 


4F47 






DEFW 


DROP 


4FD8 


9C46 






DEFW 


FROMR 


4FDA 


C643 






DEFW 


ZBRAN 


4FDC 


0400 






DEFW 


NUMB3-S 


4FDE 


2247 






DEFW 
ENDM 


DMINU 


4FE0 




13780 


NUMB3 


DW 


SEMIS 


4FE0 


5B46 


13790 


* 


DEFW 
ENDM 


SEMIS 


4FE2 




13800 




HD 


5,-FIN,D,NUMB-9 


4FE2 


85 






DEFB 


5+80H 


4FE3 


2D 






DEFM 


' -FIN' 


4FE4 


46 










4FE5 


49 










4FEG 


4E 










4FE7 


C4 






DEFB 


' D' +80H 


4FEB 


894F 






DEFW 
ENDM 


NUMB -9 


4FEFI 




13810 


DFIND 


DW8 


DOCOL , BL , WORD , HERE , CONT , AT , AT , PF I ND 


4FEA 


2448 






DEFW 


DOCOL 


4FEC 


C348 






DEFW 


BL 


4FEE 


F64E 






DEFW 


WORD 


4FF0 


164A 






DEFW 


HERE 


4FF2 


A349 






DEFW 


CONT 


4FF4 


AA47 






DEFW 


AT 


4FF6 


AA47 






DEFW 


AT 


4FF8 


7D44 






DEFW 
ENDM 


PFIND 


4FFA 




13820 




DW8 


DUP, ZEQU, ZBRAN, DFIN1-*, DROP, HERE, LATES, 


4FFA 


6947 






DEFW 


DUP 


4FFC 


B746 






DEFW 


ZEQU 


4FFE 


C643 






DEFW 


ZBRAN 


5000 


0A00 






DEFW 


DFIN1-S 


5002 


4F47 






DEFW 


DROP 



5004 


1641=1 






DEFW 


HERE 




5006 


1F4B 






DEFW 


LATES 




5008 


7D44 






DEFW 
ENDM 


PFIND 




500A 




13830 


DFIN1 


DW 


SEMIS 




500R 


5B46 


13840 


5 


DEFW 
ENDM 


SEMIS 




500C 




13850 




HD 


7, (ABORT, ),DFIND-8 




500C 


87 






DEFB 


7+80H 




500D 


28 






DEFM 


' ( ABORT 




500E 


41 












500F 


42 












5013 


4F 












5011 


52 












5012 


54 












5013 


1=13 






DEFB 


' )' +88H 




5014 


E24F 






DEFW 
ENDM 


DFIND-8 




5016 




13860 


PABOR 


DW3 


DOCOL , ABORT , SEMIS 




5016 


2448 






DEFW 


DOCOL 




5018 


6352 






DEFW 


ABORT 




501A 


5B46 


13870 


s 


DEFW 
ENDM 


SEMIS 




501C 




13880 




HD 


5 , ERRO , R , P ABOR - 0AH 




501C 


85 






DEFB 


5+80H 




501D 


45 






DEFM 


' ERRO' 




501E 


52 












501F 


52 












5020 


4F 












5021 


D2 






DEFB 


' R' +80H 




5022 


0C50 






DEFW 
ENDM 


PABOR-0AH 




5024 




13830 


ERROR 


DW7 


DOCOL , WARN , AT , ZLESS , ZBRAN , ERRO 1 - 5 . 


, PABOR 


5024 


2448 






DEFW 


DOCOL 




5026 


4548 






DEFW 


WARN 




5028 


AA47 






DEFW 


AT 




5020 


CA46 






DEFW 


ZLESS 




502C 


C643 






DEFW 


ZBRAN 




502E 


0400 






DEFW 


ERR01-S 




5030 


1650 






DEFW 
ENDM 


PABOR 




5032 




13300 


ERR01 


DW4 


HERE , COUNT , TYPE , PDOTQ 




5032 


164ft 






DEFW 


HERE 




5034 


FFI4C 






DEFW 


COUNT 




5036 


0D4D 






DEFW 


TYPE 




5038 


6E4D 






DEFW 
ENDM 


PDOTQ 




503A 




13910 




DB 


Z 




5030 


02 






DEFB 
ENDM 


2 




503B 


3F 


13920 




DEFM 


'7 ' 




503C 


20 












503D 




13830 




DW2 


MESS.SPSTO 




503D 


8054 






DEFW 


MESS 




S03F 


1E46 






DEFW 
ENDM 


SPSTO 





13940 ; CHANGE FROM FIG MODEL 







13950 ; 


DW 


INN,AT,BLK,AT 


5041 




13960 


DW8 


BLK,AT,DDUP,ZBRAN,ERR02-S,INN.AT.SWAP 


5041 


7049 




DEFW 


BLK 


5043 


AA47 




DEFW 


AT 


5045 


E34A 




DEFW 


DDUP 


5047 


C643 




DEFW 


ZBRAN 


5049 


0800 




DEFW 


ERR02-S 


504B 


7849 




DEFW 


INN 


504D 


AA47 




DEFW 


AT 


504F 


5C47 




DEFW 
ENDM 


SWAP 


5051 




13970 ERR02 


DW 


QUIT 


5051 


3C52 


13980 ; 


DEFW 
ENDM 


QUIT 


5053 




13990 


HD 


3, ID, . .ERR0R-8 


5053 


83 




DEFB 


3+80H 


5054 


49 




DEFM 


' ID' 


5055 


44 








5056 


AE 




DEFB 


' . ' +80H 


5057 


1C50 




DEFW 
ENDM 


ERROR -8 


5059 




14000 IDDOT 


DW8 


DOCOL, PAD , LIT , 20H, LIT , 5FH , FILL, DUP 


5059 


2448 




DEFW 


DOCOL 


505B 


E34E 




DEFW 


PAD 


505D 


8D43 




DEFW 


LIT 


505F 


2000 




DEFW 


20H 


506 1 


8D43 




DEFW 


LIT 


5063 


5F00 




DEFW 


5FH 


5065 


8D4E 




DEFW 


FILL 


5067 


6947 




DEFW 
ENDM 


DUP 


5069 




14010 


DW8 


PFA , LFA , OUER , SUBB , PAD , SWAP , CMOUE , PAD 


5069 


634B 




DEFW 


PFA 


506B 


2F4B 




DEFW 


LFA 


506D 


4047 




DEFW 


OUER 


506F 


5A4A 




DEFW 


SUBB 


5071 


E34E 




DEFW 


PAD 


5073 


5C47 




DEFW 


SWAP 


5075 


4445 




DEFW 


CMOUE 


5077 


E34E 




DEFW 
ENDM 


PAD 


5079 




14020 


DW7 


COUNT , LIT , 1FH , ANDD , TYPE , SPACE , SEMI S 


5079 


FA4C 




DEFW 


COUNT 


507B 


8D43 




DEFW 


LIT 


S07D 


1F00 




DEFW 


1FH 


507F 


D745 




DEFW 


ANDD 


5081 


0D4D 




DEFW 


TYPE 


5083 


D44A 




DEFW 


SPACE 


5085 


5B46 


14030 ; 


DEFW 
ENDM 


SEMIS 


5087 




14040 


HD 


6,CREAT,E,IDD0T-6 


5087 


86 




DEFB 


6+80H 


5088 


43 




DEFM 


' CREAT' 


5089 


52 








508A 


45 









508B 


41 








508C 


54 








508D 


C5 




DEFB 


' E' +80H 


508E 


5350 




DEFW 
ENDM 


IDDOT-6 


5090 




14050 CREflT 


DW8 


DOCOL , DF IND , ZBRAN , CREA1 -* , DROP , NFfl . IDDOT 


5090 


2448 




DEFW 


DOCOL 


5092 


EA4F 




DEFW 


DFIND 


5094 


C643 




DEFW 


ZBRftN 


5096 


1000 




DEFW 


CREA1-S 


5098 


4F47 




DEFW 


DROP 


509ft 


4D4B 




DEFW 


NFft 


509C 


5950 




DEFW 


IDDOT 


509E 


8D43 




DEFW 
ENDM 


LIT 


50ft0 




14060 


DW3 


4 , MES5 , SPftCE 


S0R0 


0400 




DEFW 


4 


50ft2 


8054 




DEFW 


MESS 


50A4 


D44A 




DEFW 
ENDM 


SPftCE 


50ft6 




14070 CREftl 


DW8 


HERE , DUP , CAT , WIDTH , FIT , MIN , ONEP . ALLOT 


50ft6 


164ft 




DEFW 


HERE 


50R8 


6947 




DEFW 


DUP 


50AA 


B947 




DEFW 


CAT 


50AC 


3849 




DEFW 


WIDTH 


50ftE 


ftft47 




DEFW 


ftT 


50B0 


5953 




DEFW 


MIN 


50B2 


Fft49 




DEFW 


ONEP 


50B4 


264ft 




DEFW 
ENDM 


ALLOT 


50BG 




14080 


DW8 


DUP, LIT, 0A0H, TOGGL, HERE, ONE, SUBB. LIT 


50BG 


6947 




DEFW 


DUP 


50B8 


8D43 




DEFW 


LIT 


50BA 


ft000 




DEFW 


0A0H 


50BC 


9C47 




DEFW 


TOGGL 


50BE 


164ft 




DEFW 


HERE 


50C0 


ftft48 




DEFW 


ONE 


50C2 


5A4ft 




DEFW 


SUBB 


50C4 


8D43 




DEFW 
ENDM 


LIT 


50C6 




14090 


DW8 


80H , TOGGL , LATES , COMMA , CURR , AT . STORE , HERE 


50CB 


8000 




DEFW 


80H 


50C8 


9C47 




DEFW 


TOGGL 


50CA 


1F4B 




DEFW 


LATES 


50CC 


324fl 




DEFW 


COMMA 


50CE 


B049 




DEFW 


CURR 


50D0 


ftft47 




DEFW 


ftT 


50D2 


E147 




DEFW 


STORE 


50D4 


164ft 




DEFW 
ENDM 


HERE 


50D6 




14100 


DW3 


T WOP .COMMA, SEMIS 


50D6 


074ft 




DEFW 


TWOP 


50D8 


324ft 




DEFW 


COMMA 


50DA 


5B46 


14110 ; 


DEFW 
ENDM 


SEMIS 


50DC 




14120 


DB 


0C9H ; LBRftC COMPILE RBRftC 



50DC 


C8 






DEFB 
ENDM 


0C8H 


50DD 




14130 




DB 


5BH 


50DD 


5B 






DEFB 
ENDM 


5BH 


50DE 




14140 




DM 


COMPILE 


50DE 


43 






DEFM 


' COMPILE' 


50DF 


4F 










50E0 


4D 










50E1 


50 










50E2 


48 










50E3 


4C 










50E4 


45 






ENDM 




50E5 




14150 




DB 


0DDH 


50E5 


DD 






DEFB 
ENDM 


0DDH 


50EB 




14160 




DM 


CREftT-8 


50E6 


8750 






DEFW 
ENDM 


CREftT-3 


S0E8 




14170 


BCOMP 


DW8 


DOCOL , DFIND , ZEQU , ZERO , QERR , DROP . CFA , COMMA 


50E8 


2448 






DEFW 


DOCOL 


50EA 


Eft4F 






DEFW 


DFIND 


50EC 


B746 






DEFW 


ZEQU 


50EE 


A248 






DEFW 


ZERO 


50F0 


8B4B 






DEFW 


QERR 


50F2 


4F47 






DEFW 


DROP 


50F4 


3F4B 






DEFW 


CFft 


50F6 


324A 






DEFW 
ENDM 


COMMft 


50F8 




14180 




DW 


SEMIS 


50F8 


5B46 


14180 


1 


DEFW 
ENDM 


SEMIS 


50FA 




14200 




HD 


47H, LITERft , L, BCOMP-0CH 


50Fft 


C7 






DEFB 


47H+80H 


50FB 


4C 






DEFM 


' LITERft' 


50FC 


48 










50FD 


54 










50FE 


45 










50FF 


52 










5100 


41 










5101 


CC 






DEFB 


' L' +80H 


5102 


DC50 






DEFW 
ENDM 


BCOMP -0CH 


5104 




14210 


L.ITER 


DW8 


DOCOL, STATE, AT, ZBRftN, LITE1-S, COMP. LIT. COMMft 


5104 


2448 






DEFW 


DOCOL 


5106 


BB43 






DEFW 


STftTE 


5108 


ftft47 






DEFW 


AT 


510ft 


C643 






DEFW 


ZBRftN 


510C 


0800 






DEFW 


LITE1-S 


510E 


1E4C 






DEFW 


COMP 


5110 


8D43 






DEFW 


LIT 


5112 


324ft 






DEFW 
ENDM 


COMMA 


5114 




14220 


LITE1 


DW 


SEMIS 


5114 


5B46 






DEFW 
ENDM 


SEMIS 







14230 


* 






5116 




14240 




HD 


43H , DLITERft, L, LITER-0ftH 


5116 


C8 






DEFB 


48H+80H 


5117 


44 






DEFM 


' DLITERft' 


sua 


4C 










5119 


49 










511ft 


54 










SUB 


45 










511C 


52 










S11D 


41 










511E 


CC 






DEFB 


' L' +80H 


511F 


Fft50 






DEFW 
ENDM 


LITER-0ftH 


5121 

R 

5121 




14250 


DLITE 


DW8 


DOCOL, STATE, AT, ZBRAN, DLIT1-S, SWAP. LITER 


2448 






DEFW 


DOCOL 


5123 


BB49 






DEFW 


STATE 


5125 


ftft47 






DEFW 


AT 


5127 


C643 






DEFW 


2BRAN 


5129 


0800 






DEFW 


DLIT1-S 


512B 


5C47 






DEFW 


SWAP 


512D 


0451 






DEFW 


LITER 


512F 


0451 






DEFW 
ENDM 


LITER 


5131 




14260 


DLIT1 


DW 


SEMIS 


5131 


5B46 


14270 


f 


DEFW 
ENDM 


SEMIS 


5133 




14280 




HD 


6 , 7STAC , K , DLITE-0BH 


5133 


86 






DEFB 


6+80H 


5134 


3F 






DEFM 


' 7STAC 


5135 


53 










S136 


54 










5137 


41 










5138 


43 










5139 


CB 






DEFB 


' K' +80H 


513fl 


1651 






DEFW 
ENDM 


DLITE-0BH 


513C 




14290 


QSTftC 


DW8 


DOCOL , SPAT , SZERO , ftT , SWAP , ULESS . ONE . QERR 


513C 


2448 






DEFW 


DOCOL 


513E 


0F46 






DEFW 


SPftT 


5148 


lft49 






DEFW 


SZERO 


5142 


ftR47 






DEFW 


AT 


5144 


5C47 






DEFW 


SWAP 


5146 


964ft 






DEFW 


ULESS 


5148 


Afi48 






DEFW 


ONE 


514fl 


8B4B 






DEFW 
ENDM 


QERR 


514C 




14300 




DW8 


SPAT, HERE, LIT, 80H, PLUS, ULESS, LIT. 7 


514C 


0F46 






DEFW 


SPAT 


514E 


164fl 






DEFW 


HERE 


5150 


8D43 






DEFW 


LIT 


5152 


8000 






DEFW 


80H 


5154 


DC46 






DEFW 


PLUS 


5156 


964fl 






DEFW 


ULESS 


5158 


8D43 






DEFW 


LIT 


515fl 


0700 






DEFW 
ENDM 


7 



S15C 

S15C 8B4B 
515E 5B46 



5160 
5160 
5161 
5162 
5163 
5164 
5165 
5166 
5167 
5168 
5169 
516A 



89 
49 
4E 
54 
45 
52 
50 
52 
45 
D4 
3351 



516C 
S16C 2448 



516E 

3-* 

51SE 

5170 

5172 

5174 

5176 

5178 

517A 

517C 



EA4F 
C643 
1E00 
BB49 
AA47 
744A 
C643 
0A00 



517E 

517E 3F4B 
5180 324A 
5182 AF43 
5184 0600 

5186 

5186 3F4B 
5188 A143 

518A 

518A 3C51 
518C RF43 
518E 1C00 



5130 
5190 
5192 
5194 
5196 
5198 
519R 
519C 
519E 

51R0 



164A 
924F 
CE49 
AA47 
FA49 
C643 
0800 
2151 



14310 



14320 
14330 



14340 INTER 



14350 INTE1 



14360 



14370 INTE3 



14380 INTE4 



14390 INTE2 



DW2 


QERR, SEMIS 


DEFW 


QERR 


DEFW 


SEMIS 


ENDM 




HD 


9 , INTERPRE , T , QSTAC-9 


DEFB 


9+80H 


DEFM 


' INTERPRE' 



14400 



DEFB 

DEFW 

ENDM 

DM 

DEFW 

ENDM 

DW8 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

ENDM 

DW4 

DEFW 

DEFW 

DEFW 

DEFW 

ENDM 

DW2 

DEFW 

DEFW 

ENDM 

DW3 

DEFW 

DEFW 

DEFW 

ENDM 

DW8 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

ENDM 

DW2 



' T' +80H 
QSTFIC-9 

DOCOL 
DOCOL 

DFIND , ZBRAN , INTE2 - S , STATE , RT , LESS . ZBRRN . INTE 

DFIND 

ZBRRN 

INTE2-* 

STRTE 

RT 

LESS 

ZBRRN 

INTE3-* 

CFR, COMMR, BRAN, INTE4-S 

CFR 

COMMfl 

BRAN 

INTE4-* 

CFR, EXEC 

CFR 

EXEC 

QSTRC.BRRN, INTE5-* 

QSTRC 

BRRN 

INTE5-* 

HERE , NUMB , DPL , RT , ONEP , ZBRRN , I NTE6 - S . DL I TE 

HERE 

NUMB 

DPL 

RT 

ONEP 

ZBRAN 

INTE6-f 

DLITE 

BRRN.INTE7-S 



51R0 


RF43 






DEFW 


BRRN 




51R2 


0600 






DEFW 
ENDM 


INTE7-* 




S1R4 




14410 


INTE6 


DW2 


DROP, LITER 




51R4 


4F47 






DEFW 


DROP 




51 AS 


0451 






DEFW 
ENDM 


LITER 




S1R8 




14420 


INTE7 


DW 


QSTRC 




51R8 


3C51 






DEFW 
ENDM 


QSTRC 




51RR 




14430 


INTE5 


DW2 


BRRN, INTE1-S 




51flfl 


RF43 






DEFW 


BRRN 




S1RC 


C2FF 


14440 


J 


DEFW 
ENDM 


INTEl-f 




51FIE 




14450 




HD 


9 , IMMEDIRT , E , INTER-0CH 




51RE 


89 






DEFB 


9+80H 




S1RF 


49 






DEFM 


' IMMEDIRT' 




51B0 


4D 












51B1 


4D 












51B2 


45 












51B3 


44 












51B4 


49 












51B5 


41 












S1B6 


54 












51B7 


C5 






DEFB 


' E' +80H 




51B8 


6051 






DEFW 
ENDM 


INTER-0CH 




51BR 




14460 


IMMED 


DW6 


DOCOL, LRTES, LIT, 40H, TOGGL, SEMIS 




51BR 


2448 






DEFW 


DOCOL 




51BC 


1F4B 






DEFW 


LRTES 




51BE 


3D43 






DEFW 


LIT 




S1C0 


4000 






DEFW 


40H 




S1C2 


9C47 






DEFW 


TOGGL 




51C4 


5B46 


14470 


t 


DEFW 
ENDM 


SEMIS 




51C6 




14480 




HD 


0RH , UOCRBULRR ,Y,IMMED-0CH 




51C6 


8R 






DEFB 


0RH+80H 




51C7 


56 






DEFM 


' UOCRBULRR' 




51C8 


4F 












51C9 


43 












51CR 


41 












51CB 


42 












51CC 


55 












51CD 


4C 












51CE 


41 












51CF 


52 












51D0 


D9 






DEFB 


' Y' +80H 




51D1 


RE51 






DEFW 
ENDM 


IMMED -0CH 




51D3 




14490 


UOCflB 


DW8 


DOCOL, BUILD, LIT, 0R081H, COMMR, CURR, RT. 


,CFR 


51D3 


2448 






DEFW 


DOCOL 




51D5 


G34C 






DEFW 


BUILD 




51D7 


8D43 






DEFW 


LIT 




51D9 


81R0 






DEFW 


0R081H 




51DB 


324R 






DEFW 


COMMR 




51DD 


B049 






DEFW 


CURR 





51DF 


AA47 






DEFW 


AT 


51E1 


3F4B 






DEFW 
ENDM 


CFft 


51E3 




14500 




DW8 


COMMA , HERE , UOCL , AT , COMMA , UOCL , STORE . DOES 


51E3 


324A 






DEFW 


COMMA 


51E5 


164 A 






DEFW 


HERE 


51E7 


6649 






DEFW 


OOCL 


51E9 


AA47 






DEFW 


AT 


51EB 


324ft 






DEFW 


COMMA 


51ED 


6649 






DEFW 


UOCL 


51EF 


E147 






DEFW 


STORE 


51F1 


D34C 






DEFW 
ENDM 


DOES 


51F3 




14510 


DOUAC 


DW4 


TWOP , CONT , STORE , SEMIS 


51F3 


074fl 






DEFW 


TWOP 


51F5 


A349 






DEFW 


CONT 


51F7 


E147 






DEFW 


STORE 


51F9 


5B46 


14520 


» 


DEFW 
ENDM 


SEMIS 


51FB 




14530 




HD 


45H , FORT, H , UOCAB-0DH 


51FB 


C5 






DEFB 


45H+80H 


51FC 


46 






DEFM 


' FORT' 


51FD 


4F 










51FE 


52 










51FF 


54 










5200 


C8 






DEFB 


' H' +80H 


5201 


C551 






DEFW 
ENDM 


UOCAB-0DH 


5203 




14540 


FORTH 


DW5 


DODOE, DOUAC, 0A081H, TASK-7 . 


5203 


DF4C 






DEFW 


DODOE 


5205 


F351 






DEFW 


DOOAC 


5207 


81ft0 






DEFW 


0A081H 


5209 


535B 






DEFW 


TASK -7 


520B 


0000 






DEFW 
ENDM 









14550 


; LAST 


WORD - 









14560 


; CHGD 


EACH 


TIME A DEF IS ADDED TO THE FORTH VOCABULARY 






14570 


I 






520D 




14580 




HD 


0B, DEFINITION, S.FORTH-8 


520D 


8B 






DEFB 


0B+80H 


520E 


44 






DEFM 


' DEFINITION' 


520F 


45 










5210 


46 










5211 


49 










5212 


4E 










5213 


49 










5214 


54 










5215 


49 










5216 


4F 










5217 


4E 










5218 


D3 






DEFB 


' S' +80H 


5219 


FBS1 






DEFW 
ENDM 


FORTH -8 


521B 




14590 


DEFIN 


DW6 


DOCOL, CONT, AT, CURR, STORE, SEMIS 


521B 


2448 






DEFW 


DOCOL 


521D 


ft349 






DEFW 


CONT 


521F 


flft47 






DEFW 


AT 



5221 


B049 






DEFW 


CURR 




5223 


E147 






DEFW 


STORE 




5225 


5B46 


14600 


I 


DEFW 
ENDM 


SEMIS 




5227 




14610 




DB 


0C1H 




5227 


CI 






DEFB 
ENDM 


0C1H 




5228 




14620 




MB 


( 




5228 


R8 






DEFB 
ENDM 


' ( ' +80H 




5228 




14630 




DW 


DEFIN-0EH 




5228 


0D52 






DEFW 
ENDM 


DEFIN-3EH 




522B 




14640 


PRREN 


DW5 


DOCOL , LIT , 29H , WORD , SEMIS 




522B 


2448 






DEFW 


DOCOL 




522D 


8D43 






DEFW 


LIT 




522F 


2800 






DEFW 


28H 




5231 


F64E 






DEFW 


WORD 




5233 


5B46 


14650 


f 


DEFW 
ENDM 


SEMIS 




5235 




14660 




HD 


4,QUI,T,PRREN-4 




5235 


84 






DEFB 


4+80H 




5236 


51 






DEFM 


' QUI' 




5237 


55 












5238 


48 












5233 


D4 






DEFB 


' V +80H 




523A 


2752 






DEFW 
ENDM 


PRREN -4 




523C 




14670 


QUIT 


DW5 


DOCOL , ZERO , BLK , STORE , LBRRC 




523C 


2448 






DEFW 


DOCOL 




523E 


0248 






DEFW 


ZERO 




5240 


7048 






DEFW 


BLK 




5242 


E147 






DEFW 


STORE 




5244 


344C 






DEFW 
ENDM 


LBRRC 




524S 




14680 


QUIT1 


DW8 


RPSTO , CR , QUERY , INTER . STRTE, RT . 2EQU . ZBRRM 


5246 


4346 






DEFW 


RPSTO 




5248 


3745 






DEFW 


CR 




524R 


364E 






DEFW 


QUERY 




524C 


6CS1 






DEFW 


INTER 




524E 


BB49 






DEFW 


STATE 




5250 


RR47 






DEFW 


RT 




5252 


B746 






DEFW 


ZEQU 




5254 


C643 






DEFW 
ENDM 


ZBRAN 




5256 




14690 




DW2 


QUITZ-S.PDOTQ 




5256 


0700 






DEFW 


QUIT2-S 




5258 


6E4D 






DEFW 
ENDM 


PDOTQ 




S2SA 




14700 




DB 


2 




525a 


02 






DEFB 
ENDM 


2 




525B 




14710 




DM 


OK 




525B 


4F 






DEFM 


' OK' 




525C 


4B 













ENDM 



525D 




14720 


QUIT2 


DW2 


BRAN.QUIT1-* 




525D 


AF43 






DEFW 


BRAN 




525F 


E7FF 


14730 


> 


DEFW 
ENDM 


QUIT1-5 




5261 




14740 




HD 


S,AB0R,T,QUIT-7 




52S1 


85 






DEFB 


5+80H 




52G2 


41 






DEFM 


' ABOR' 




5263 


42 












5264 


4F 












5265 


52 












5266 


D4 






DEFB 


' T' +80H 




5267 


3552 






DEFW 
ENDM 


QUIT-7 




5269 




14750 


ABORT 


DW7 


DOCOL , SPSTO , DEC , QSTAC , CR , DOTCPU , PDOTO 


5269 


2448 






DEFW 


DOCOL 




526B 


1E46 






DEFW 


SPSTO 




526D 


7F4C 






DEFW 


DEC 




526F 


3C51 






DEFW 


QSTAC 




5271 


3745 






DEFW 


CR 




5273 


355B 






DEFJ1 


DOTCPU 




5275 


6E4D 






DEFW 
ENDM 


PDOTQ 




5277 




14760 




DB 


0DH 




5277 


0D 






DEFB 
ENDM 


0DH 




5278 


45 


14770 




DEFM 


' ESF FORTH ' 




5279 


53 












527A 


46 












527B 


20 












527C 


46 












527D 


4F 












527E 


52 












527F 


54 












5280 


48 












5281 


20 












5282 




14780 




DB 


RELEAS+30H 




5282 


31 






DEFB 
ENDM 


RELEAS+30H 




5283 




14790 




DB 


ADOT 




5283 


2E 






DEFB 
ENDM 


ADOT 




5284 




14800 




DB 


REOISI+30H 




5284 


30 






DEFB 
ENDM 


REUISI+30H 




5285 




14810 




DW3 


FORTH, DEFIN, QUIT 




5285 


0352 






DEFW 


FORTH 




5287 


1B52 






DEFW 


DEFIN 




5289 


3C52 


14820 


■ 


DEFW 
ENDM 


QUIT 




528B 




14830 


WRM 


EQU 


t 




528B 


3E0E 


14840 




LD 


A.0EH ; TURN ON CURSOR 




528D 


CD3300 


14850 




CALL 


DSPLY 




529B 


019652 


14860 




LD 


BC.WRM1 




5293 


C37C43 


14870 




JP 


NEXT 




5296 




14880 


WRM1 


DW 


WARM 




5296 


9F52 






DEFW 


WARM 





ENDM 







14890 


t 






5298 




14900 




HD 


4,WAR,M,AB0RT-8 


5298 


84 






DEFB 


4+80H 


5299 


57 






DEFM 


' WAR' 


529A 


41 










529B 


52 










529C 


CD 






DEFB 


' M' +80H 


529D 


6152 






DEFW 
ENDM 


ABORT-8 


529F 




14910 


WARM 


DW3 


DOCOL.MTBUF, ABORT 


529F 


2448 






DEFW 


DOCOL 


52A1 


F355 






DEFW 


MTBUF 


52A3 


6952 


14920 


> 


DEFW 
ENDM 


ABORT 


52fl5 




14930 


CLD 


EQU 


S 


52A5 


3E0E 


14940 




LD 


A.0EH ; TURN ON CURSOR 


52A7 


CD3300 


14950 




CfiLL 


DSPLY 


52AA 


218B52 


14960 




LD 


HL.WRM ; SET UP RETURN 


52AD 


22DF40 


14970 




LD 


( 40DFH ) , HL 


52B0 


01BA52 


14980 




LD 


BC.CLD1 


52B3 


2FI6243 


14990 




LD 


HL,(0RIG+12H) 


52BG 


F9 


15000 




LD 


SP.HL 


52B7 


C37C43 


15010 




JP 


NEXT 


52BA 




15020 


CLD1 


DW 


COLD 


52Bfl 


C352 


15030 


I 


DEFW 
ENDM 


COLD 


52BC 




15040 




HD 


4,C0L,D,WARM-7 


52BC 


84 






DEFB 


4+80H 


52BD 


43 






DEFM 


' COL' 


52BE 


4F 










52BF 


4C 










52C0 


C4 






DEFB 


' D' +80H 


52C1 


9852 






DEFW 
ENDM 


WARM -7 


52C3 




15050 


COLD 


DW5 


DOCOL , MTBUF , LIT , BUF1 , USE 


52C3 


2448 






DEFW 


DOCOL 


52C5 


F355 






DEFW 


MTBUF 


52C7 


8D43 






DEFW 


LIT 


52C9 


E473 






DEFW 


BUF1 


52CB 


8255 






DEFW 
ENDM 


USE 


52CD 




15060 




DW6 


STORE, LIT, BUF1 , PREU , STORE. DRZER 


52CD 


E147 






DEFW 


STORE 


52CF 


8D43 






DEFW 


LIT 


52D1 


E473 






DEFW 


BUF1 


52D3 


8D55 






DEFW 


PREU 


52D5 


E147 






DEFW 


STORE 


52D7 


0756 






DEFW 
ENDM 


DRZER 


52D9 




15070 




DW5 


LIT , 0RIG+12H , LIT , UP , AT 


52D9 


8D43 






DEFW 


LIT 


52DB 


6243 






DEFW 


ORIG+12H 


52DD 


8D43 






DEFW 


LIT 


52DF 


7643 






DEFW 


UP 


S2E1 


AA47 






DEFW 


AT 











ENDM 




S2E3 




15080 




DW8 


LIT , 6 , PLUS , LIT , 10H , CMOUE , LIT , ORIG+0CH 


52E3 


8D43 






DEFW 


LIT 


52E5 


0600 






DEFW 


G 


52E7 


DC46 






DEFW 


PLUS 


52E9 


8D43 






DEFW 


LIT 


52EB 


1000 






DEFW 


10H 


52ED 


4445 






DEFW 


CMOUE 


52EF 


8D43 






DEFW 


LIT 


52F1 


5C43 






DEFW 
ENDM 


ORIG+0CH 


52F3 




15080 




DW5 


ftT , LIT , FORTH+6 , STORE , ABORT 


52F3 


AA47 






DEFW 


AT 


52F5 


SD43 






DEFW 


LIT 


52F7 


0952 






DEFW 


FORTH+6 


52F9 


E147 






DEFW 


STORE 


52FB 


6952 


15100 


» 


DEFW 
ENDM 


ABORT 


52FD 




15110 




HD 


4,S->,D,C0LD-7 


52FD 


84 






DEFB 


4+80H 


52FE 


53 






DEFM 


' S->' 


52FF 


2D 










5300 


3E 










5301 


C4 






DEFB 


* D' +80H 


5332 


BC52 






DEFW 
ENDM 


COLD-7 


5384 




15120 


STOD 


DW 


S+2 


5304 


0653 






DEFW 
ENDM 


f+2 


5306 


Dl 


15130 




POP 


DE 


5307 


210000 


15140 




LD 


HL,0 


S30A 


7ft 


15150 




LD 


A,D 


530B 


E680 


15160 




AND 


80H 


530D 


2801 


15170 




JR 


Z.ST0D1 


530F 


2B 


15180 




DEC 


HL 


5310 


C37A43 


15190 
15200 


ST0D1 

* 


JP 


DPUSH 


5313 




15210 




HD 


2.+.-.ST0D-7 


5313 


82 






DEFB 


2+88H 


5314 


2B 






DEFM 


' +' 


5315 


AD 






DEFB 


' -' +80H 


5316 


FDS2 






DEFW 
ENDM 


STOD -7 


5318 




15220 


PM 


DW5 


DOCOL , ZLESS , ZBR AN , PM 1 - « , M I NUS 


5318 


2448 






DEFW 


DOCOL 


S31A 


Cfl46 






DEFW 


ZLESS 


531C 


C643 






DEFW 


ZBRAN 


531E 


0400 






DEFW 


PM1-* 


5320 


0C47 






DEFW 
ENDM 


MINUS 


5322 




15230 


PM1 


DW 


SEMIS 


5322 


5B46 


15240 


1 


DEFW 
ENDM 


SEMIS 


5324 




15250 




HD 


3,D+,-,PM-5 


5324 


83 






DEFB 


3+80H 


5325 


44 






DEFM 


' D+' 



5326 


2B 












5327 


RD 






DEFB 


' -' +80H 




5328 


1353 






DEFW 
ENDM 


PM-5 




532R 




15260 


DPM 


DW5 


DOCOL , 2LESS , ZBRRN , DPM 1 - 


-S, DMINU 


532R 


2448 






DEFW 


DOCOL 




532C 


CR46 






DEFW 


ZLESS 




532E 


C643 






DEFW 


ZBRRN ' 




5330 


0400 






DEFW 


DPM1-S 




5332 


2247 






DEFW 
ENDM 


DMINU 




5334 




15270 


DPMI 


DW 


SEMIS 




5334 


5B46 


15280 


1 


DEFW 
ENDM 


SEMIS 




5336 




15230 




HD 


3,RB,S,DPM-6 




5336 


83 






DEFB 


3+80H 




5337 


41 






DEFM 


' RB' 




5338 


42 












5338 


D3 






DEFB 


' S' +80H 




533R 


2453 






DEFW 
ENDM 


DPM-6 




533C 




15300 


RBS 


DW4 


DOCOL, DUP.PM, SEMIS 




533C 


2448 






DEFW 


DOCOL 




533E 


6347 






DEFW 


DUP 




5340 


1853 






DEFW 


PM 




5342 


5B46 


19S10 


* 


DEFW 
ENDM 


SEMIS 




5344 




15320 




HD 


4,DRB,S,RBS-6 




5344 


84 






DEFB 


4+80H 




5345 


44 






DEFM 


' DRB' 




5346 


41 












5347 


42 












5348 


D3 






DEFB 


' S* +80H 




5348 


3653 






DEFW 
ENDM 


flBS-6 




534B 




15330 


DRBS 


DW4 


DOCOL , DUP , DPM , SEMIS 




534B 


2448 






DEFW 


DOCOL 




534D 


6847 






DEFW 


DUP 




534F 


2R53 






DEFW 


DPM 




5351 


5B46 


15340 


3 


DEFW 
ENDM 


SEMIS 




5353 




15350 




HD 


3,MI,N,DRBS-7 




5353 


83 






DEFB 


3+80H 




5354 


4D 






DEFM 


' MI' 




5355 


48 












5356 


CE 






DEFB 


' N' +80H 




5357 


4453 






DEFW 
ENDM 


DRBS -7 




5353 




15360 


MIN 


DW6 


DOCOL , TDUP , GRERT , ZBRRN , 


MIN1-S.SWRP 


5358 


2448 






DEFW 


DOCOL 




53SB 


7747 






DEFW 


TDUP 




535D 


B64R 






DEFW 


GREAT 




535F 


C643 






DEFW 


ZBRRN 




5361 


0400 






DEFW 


MINI-* 




5363 


5C47 






DEFW 


SWRP 













ENDM 




5365 




15370 


MINI 


DW2 


DROP, SEMIS 


5355 


4F47 






DEFW 


DROP 


5367 


5B46 


15380 


1 


DEFW 
ENDM 


SEMIS 


5369 




15390 




HD 


3,MA,X,MIN-6 


5369 


83 






DEFB 


3+80H 


536A 


4D 






DEFM 


' MA' 


536B 


41 










536C 


D8 






DEFB 


' X' +80H 


536D 


5353 






DEFW 
ENDM 


MIN-6 


536F 




15400 


MAX 


DW6 


DOCOL , TDUP , LESS , ZBRAN , MAX 1 - % , SWAP 


536F 


2443 






DEFW 


DOCOL 


5371 


7747 






DEFW 


TDUP 


5373 


744A 






DEFW 


LESS 


5375 


C643 






DEFW 


2BRAN 


5377 


0400 






DEFW 


MAXl-« 


5379 


5C47 






DEFW 
ENDM 


SWAP 


537B 




15410 


MftXl 


DW2 


DROP, SEMIS 


537B 


4F47 






DEFW 


DROP 


537D 


5B46 


15420 


» 


DEFW 
ENDM 


SEMIS 


537F 




15430 




HD 


2,M,*,MAX-6 


537F 


82 






DEFB 


2+80H 


5380 


4D 






DEFM 


' M' 


5381 


AA 






DEFB 


' *' +80H 


5382 


6953 






DEFW 
ENDM 


MAX -6 


5384 




15440 


MSTflR 


DW8 


DOCOL , TDUP , XORR , TOR , ABS , SWAP , ABS , USTAR 


5384 


2448 






DEFW 


DOCOL 


5386 


7747 






DEFW 


TDUP 


5388 


FC45 






DEFW 


XORR 


538A 


8646 






DEFW 


TOR 


538C 


3C53 






DEFW 


ABS 


538E 


5C47 






DEFW 


SWAP 


5398 


3C53 






DEFW 


ABS 


5392 


5645 






DEFW 
ENDM 


USTAR 


5394 




15450 




DW3 


FROMR.DPM, SEMIS 


5394 


9C46 






DEFW 


FROMR 


5396 


2A53 






DEFW 


DPM 


5398 


5B46 


15460 


1 


DEFW 
ENDM 


SEMIS 


539ft 




15470 




HD 


2,M,/,MSTAR-5 


539ft 


82 






DEFB 


2+80H 


539B 


4D 






DEFM 


' M' 


539C 


AF 






DEFB 


' /' +80H 


539D 


7F53 






DEFW 
ENDM 


MSTflR -5 


539F 




15480 


MSLAS 


DW8 


DOCOL , OUER , TOR , TOR , DABS . RR , ABS . USLAS 


539F 


2448 






DEFW 


DOCOL 


53ft 1 


4847 






DEFW 


OUER 


53A3 


8646 






DEFW 


TOR 



S3A5 


8646 




DEFW 


TOR 


53A7 


4B53 




DEFW 


DABS 


53fl9 


B046 




DEFW 


RR 


53AB 


3C53 




DEFW 


FIBS 


53FID 


8A45 




DEFW 
ENDM 


USLAS 


53AF 




15490 


DW8 


FROMR , RR , XORR , PM , SWAP , FROMR , PM , SWAP 


S3flF 


9C46 




DEFW 


FROMR 


53B1 


B046 




DEFW 


RR 


53B3 


FC45 




DEFW 


XORR 


53B5 


1853 




DEFW 


PM 


53B7 


5C47 




DEFW 


SWAP 


53B9 


9C46 




DEFW 


FROMR 


53BB 


1853 




DEFW 


PM 


53BD 


5C47 




DEFW 
ENDM 


SWAP 


53BF 




15500 


DW 


SEMIS 


53BF 


5B46 


15510 ; 


DEFW 
ENDM 


SEMIS 


53C1 




15520 


DB 


81H 


53C1 


81 




DEFB 
ENDM 


81H 


53C2 




15530 


MB 


* 


53C2 


flR 




DEFB 
ENDM 


' *' +80H 


53C3 




15540 


DW 


MSLAS-5 


53C3 


9A53 




DEFW 
ENDM 


MSLAS-5 


53C5 




15550 STAR 


DW4 


DOCOL , MSTflR , DROP , SEM I S 


53C5 


2448 




DEFW 


DOCOL 


53C7 


8453 




DEFW 


MSTAR 


S3C9 


4F47 




DEFW 


DROP 


53CB 


5B46 


15560 ; 


DEFW 
ENDM 


SEMIS 


53CD 




15570 


HD 


4,/M0,D,STAR-4 


53CD 


84 




DEFB 


4+80H 


53CE 


2F 




DEFM 


' /MO' 


53CF 


4D 








53D0 


4F 








53D1 


C4 




DEFB 


' D' +80H 


53D2 


C153 




DEFW 
ENDM 


STAR -4 


53D4 




15580 SLMOD 


DW6 


DOCOL , TOR , STOD , FROMR , MSLAS , SEMIS 


53D4 


2448 




DEFW 


DOCOL 


53D6 


8646 




DEFW 


TOR 


S3D8 


0453 




DEFW 


STOD 


53DR 


9C46 




DEFW 


FROMR 


53DC 


9F53 




DEFW 


MSLAS 


53DE 


5B46 


15590 ; 


DEFW 
ENDM 


SEMIS 


53E0 




15600 


DB 


81H 


53E0 


81 




DEFB 
ENDM 


S1H 


53E1 




15610 


MB 


/ 


53E1 


flF 




DEFB 


• /' +80H 











ENDM 




53E2 




15620 




DW 


SLMOD-7 


53E2 


CD53 






DEFW 
ENDM 


SLMOD-7 


53E4 




15630 


SLftSH 


DW5 


DOCOL , SLMOD , 5WftP , DROP , SEMIS 


53E4 


2448 






DEFW 


DOCOL 


53E6 


D453 






DEFW 


SLMOD 


53E8 


5C47 






DEFW 


SWftP 


S3Eft 


4F47 






DEFW 


DROP 


53EC 


5B4B 


15640 


1 


DEFW 
ENDM 


SEMIS 


53EE 




15650 




HD 


3,M0,D,SLftSH-4 


53EE 


83 






DEFB 


3+80H 


53EF 


4D 






DEFM 


' MO J 


53F0 


4F 










53F1 


C4 






DEFB 


' D' +80H 


53F2 


E053 






DEFW 
ENDM 


SLftSH -4 


53F4 




15660 


MODD 


DW4 


DOCOL , SLMOD , DROP , SEMIS 


53F4 


2448 






DEFW 


DOCOL 


53FB 


D453 






DEFW 


SLMOD 


53F8 


4F47 






DEFW 


DROP 


53FA 


5B4B 


15670 


■ 


DEFW 
ENDM 


SEMIS 


53FC 




15680 




HD 


5,*/"M0,D,M0DD-6 


53FC 


85 






DEFB 


5+80H 


53FD 


2ft 






DEFM 


' */M0 J 


53FE 


2F 










53FF 
5400 


4D 
4F 










5401 


C4 






DEFB 


' D' +80H 


5402 


EE53 






DEFW 
ENDM 


MODD-6 


5404 




15680 


SSMOD 


DW6 


DOCOL . TOR , MSTftR , FROMR , MSLftS , SEM IS 


5404 


2448 






DEFW 


DOCOL 


5406 


8646 






DEFW 


TOR 


5408 


84S3 






DEFW 


MSTftR 


540ft 


8C46 






DEFW 


FROMR 


540C 


9F53 






DEFW 


MSLftS 


540E 


5B46 


15700 


» 


DEFW 
ENDM 


SEMIS 


5410 




15710 




HD 


2,*,/,SSM0D-8 


5410 


82 






DEFB 


2+8BH 


5411 


2ft 






DEFM 


' *' 


5412 


ftF 






DEFB 


' •' +80H 


5413 


FC53 






DEFW 
ENDM 


SSMOD -8 


541S 




15720 


SSLFI 


DW5 


DOCOL , SSMOD , SWftP , DROP , SEMI S 


5415 


2448 






DEFW 


DOCOL 


5417 


0454 






DEFW 


SSMOD 


5419 


5C47 






DEFW 


SWAP 


541B 


4F47 






DEFW 


DROP 


541D 


5B46 


15730 




DEFW 
ENDM 


SEMIS 



541F 




15740 


HD 


5,M/M0,D,SSL(=l-5 


541F 


85 




DEFB 


5+80H 


5420 


4D 




DEFM 


' M/MO' 


5421 


2F 








5422 


4D 








5423 


4F 








5424 


C4 




DEFB 


' D' +80H 


5425 


1054 




DEFW 
ENDM 


SSLft-5 


5427 




15750 MSMOD 


DW8 


DOCOL , TOR , ZERO , RR , USLflS , FROMR , SWRP . TOR 


542? 


2448 




DEFW 


DOCOL 


5429 


8646 




DEFW 


TOR 


542B 


(=1248 




DEFW 


ZERO 


542D 


B046 




DEFW 


RR 


542F 


8ft45 




DEFW 


USLflS 


5431 


9C46 




DEFW 


FROMR 


5433 


5C47 




DEFW 


SWRP 


5435 


8646 




DEFW 
ENDM 


TOR 


5437 




15760 


DW3 


USLRS, FROMR, SEMIS 


5437 


81=145 




DEFW 


USLAS 


5439 


9C46 




DEFW 


FROMR 


543B 


5B46 


15770 ; 


DEFW 
ENDM 


SEMIS 


543D 




15780 


HD 


6, (LINE, ),MSM0D-8 


543D 


86 




DEFB 


6+80H 


543E 


28 




DEFM 


' (LINE' 


543F 


4C 








5440 


49 








5441 


4E 








5442 


45 








5443 


A3 




DEFB 


* )' +80H 


5444 


1F54 




DEFW 
ENDM 


MSMOD-8 


5446 




15780 PLINE 


DW8 


DOCOL , TOR , LIT , 40H , BBUF , SSMOD . FROMR . BSCR 


5446 


2448 




DEFW 


DOCOL 


5448 


8646 




DEFW 


TOR 


544R 


8D43 




DEFW 


LIT 


544C 


4000 




DEFW 


40H 


544E 


F148 




DEFW 


BBUF 


5450 


0454 




DEFW 


SSMOD 


5452 


9C46 




DEFW 


FROMR 


5454 


FD48 




DEFW 
ENDM 


BSCR 


5456 




15800 


DW7 


STAR , PLUS , BLOCK , PLUS , LIT , 40H , SEMIS 


5456 


C553 




DEFW 


STAR 


5458 


DC 46 




DEFW 


PLUS 


545ft 


6256 




DEFW 


BLOCK 


545C 


DC46 




DEFW 


PLUS 


545E 


8D43 




DEFW 


LIT 


5460 


4000 




DEFW 


40H 


5462 


5B46 


15810 ; 


DEFW 
ENDM 


SEMIS 


5464 




15820 


HD 


5, .LIN.E.PLINE-9 


5464 


85 




DEFB 


5+80H 


5465 


2E 




DEFM 


' .LIN' 



546B 


AC 










5467 


49 










5468 


4E 










5469 


C5 






DEFB 


' E' +80H 


546ft 


3D54 






DEFW 
ENDM 


PLINE-9 


546C 




15830 


DLINE 


DW5 


D0C0L , PLINE , DTRFlI , TYPE , SEMIS 


546C 


2448 






DEFW 


DOCOL 


546E 


4654 






DEFW 


PLINE 


5470 


3B4D 






DEFW 


DTRfil 


5472 


0D4D 






DEFW 


TYPE 


5474 


5B46 


15840 


1 


DEFW 
ENDM 


SEMIS 


5476 




15850 




HD 


7,MESSftG,E,DLINE-8 


5476 


87 






DEFB 


7+80H 


5477 


4D 






DEFM 


' MESSAG' 


5478 


45 










5479 


53 










547ft 


53 










547B 


41 










547C 


47 










547D 


C5 






DEFB 


' E' +80H 


547E 


6454 






DEFW 
ENDM 


DLINE-8 


5480 
-* 

5480 




15860 


MESS 


DW8 


DOCOL , WftRN , PIT , ZBRflN , MESS 1 -* , DDUP , ZBRi 


2448 






DEFW 


DOCOL 


5482 


4549 






DEFW 


WftRN 


5484 


ftft47 






DEFW 


ftT 


5486 


C643 






DEFW 


ZBRftN 


5488 


1E00 






DEFW 


MESS1-S 


548ft 


E34ft 






DEFW 


DDUP 


548C 


C643 






DEFW 


ZBRftN 


548E 


1400 






DEFW 
ENDM 


MESS2-S 


5490 




158^0 




DW8 


LIT , 4 , OFSET , FIT , BSCR , SLftSH , SUBB , DLINE 


5490 


8D43 






DEFW 


LIT 


5492 


0400 






DEFW 


4 


5494 


9649 






DEFW 


OFSET 


5496 


flft47 






DEFW 


ftT 


5498 


FD48 






DEFW 


BSCR 


549A 


E4S3 






DEFW 


SLftSH 


549C 


5A4A 






DEFW 


SUBB 


549E 


6C54 






DEFW 
ENDM 


DLINE 


54ft0 




15880 




DW 


SPftCE 


54A0 


D44ft 






DEFW 
ENDM 


SPACE 


54A2 




15890 


MESS2 


DW2 


BRftN,MESS3-f 


54fl2 


ftF43 






DEFW 


BRAN 


541=14 


0D00 






DEFW 
ENDM 


MESS3-S 


S4A6 




15900 


MESS1 


DW 


PDOTQ 


5406 


6E4D 






DEFW 
ENDM 


PDOTQ 


54ft8 




15910 




DB 


6 


54fl8 


06 






DEFB 


6 



ENDM 



S4A9 


4D 


15920 




DEFM 


' M5G # ' 


54AA 


53 










54AB 


47 










54AC 


20 










54AD 


23 










54AE 


20 










54AF 




15930 




DW 


DOT 


54AF 


F059 






DEFW 
ENDM 


DOT 


54B1 




15940 


MES53 


DW 


SEMIS 


54B1 


5B46 


15950 


) 


DEFW 
ENDM 


SEMIS 


54B3 




15960 




HD 


2,P,e,MESS-0AH 


54B3 


82 






DEFB 


2+80H 


54B4 


50 






DEFM 


' P' 


S4B5 


C0 






DEFB 


' ®' +90H 


54B6 


7654 






DEFW 
ENDM 


MESS-0AH 


54B8 




15970 


PTAT 


DW 


*+2 


54B8 


BA54 






DEFW 
ENDM 


*+2 


S4BA 


Dl 


15980 




POP 


DE 


54BB 


51 


15990 




LD 


D,C 


54BC 


4B 


16000 




LD 


C,E 


54BD 


ED78 


16010 




IN 


A,(C) 


54BF 


4A 


16020' 




LD 


C,D 


54C0 


6F 


16030 




UQ 


L,A 


54C1 


2600 


16040 




LD 


H,0 


54C3 


C37B43 


15050 
16060 


» 


JP 


HPUSH 


54C6 




16070 




HD 


2,P, ! ,PTAT-S 


54C6 


82 






DEFB 


2+80H 


54C7 


50 






DEFM 


' P' 


54C8 


Ai 






DEFB 


' ! ' +80H 


54C9 


B354 






DEFW 
ENDM 


PTAT-5 


54CB 




16080 


PTSTO 


DW 


*+2 


54CB 


CD54 






DEFW 
ENDM 


f+2 


54CD 


Dl 


16090 




POP 


DE 


54CE 


51 


16100 




LD 


D,C 


B4CF 


4B 


16110 




LD 


C,E 


54D0 


El 


16120 




POP 


HL 


54D1 


7D 


16130 




LD 


A,L 


54D2 


ED79 


16140 




OUT 


CO, A 


54D4 


4A 


16150 




LD 


C,D 


54DS 


C37C43 


16160 
16170 


1 


JP 


NEXT 






16180 


; ESF W0RD5 








16190 


• 






3012 




16200 


E5FSEL 


EQU 


3012H 


300F 




16210 


E5FPSN 


EQU 


300FH 


3003 




16220 


E5FREA 


EQU 


3003H 


3006 




16230 


ESFWRI 


EQU 


3006H 


3021 




16240 


ESFMRK 


EQU 


3021H 


3000 




16250 


E5FREW 


EQU 


3000H 



54D8 
54D8 86 
54D3 52 
54DR 45 
54DB 57 
54DC 43 
54DD 4E 
54DE C4 
54DF CG54 

54E1 

54E1 E354 

54E3 CS 
54E4 D5 
54E5 CD0030 
54E8 187D 

54EA 

54EA 86 

54EB 53 

54EC 45 

54ED 4C 

54EE 45 

54EF 43 

54F8 D4 

54F1 D854 

54F3 
54F3 F554 



16260 
16270 



HD 


6,REWIN,D,PTST0-5 


DEFB 


6+80H 


DEFM 


' REWIN' 



54F5 
54F6 
54F7 
54F8 
54F3 
54FB 
54FE 
5500 
5503 
5506 



El 

C5 

D5 

7D 

FE00 

FA6755 

FE08 

F26755 

CD1230 

185F 



5508 
5508 84 
5508 50 
550ft 4F 
550B 53 
550C CE 
550D Efl54 

550F 
550F 1155 

5511 El 

5512 7D 

5513 CS 

5514 D5 



16280 REWIND 



16290 
16300 
16310 
16320 
16330 
16340 



16350 SELEC 



16360 

16370 

16380 

16390 

16400 

16410 

16420 

16430 

16440 

16450 

16460 ; 

16470 



16480 POSN 



16480 
16500 
16510 
16520 



DEFB 


' D' +80H 


DEFW 


PTSTO-5 


ENDM 




DW 


S+2 


DEFW 


S+2 


ENDM 




PUSH 


BC 


PUSH 


DE 


CALL 


ESFREW 


JR 


ESFRTN 


HD 


6,SELEC,T,REWIND-9 


DEFB 


6+80H 


DEFM 


' SELEC 



DEFB 

DEFW 

ENDM 

DW 

DEFW 

ENDM 

POP 

PUSH 

PUSH 

LD 

CP 

JP 

CP 

JP 

CALL 

JR 

HD 

DEFB 

DEFM 



DEFB 

DEFW 

ENDM 

DW 

DEFW 

ENDM 

POP 

LD 

PUSH 

PUSH 



' T' +80H 
REWIND-9 

S+2 
S+2 

HL 

BC 

DE 

ft.L 



M, ESFRTN 

8 

P , ESFRTN 

ESFSEL 

ESFRTN 

4,P0S,N,SELEC-9 

4+80H 

' POS' 



' N' +80H 
SELEC -9 

S+2 
S+2 

HL 

fl.L 

BC 

DE 



5515 


FE00 


16530 


CP 







5517 


2004 


16540 


JR 


NZ.ESFP1 




5513 


3E01 


16550 


LD 


ft,l 




551B 


184ft 


16560 


JR 


ESFRTN 




551D 


CD0F30 


16570 ESFP1 


CftLL 


ESFPSN 




5520 


1845 


16580 
16590 ; 


JR 


ESFRTN 




5522 




16600 


HD 


10,BLOCK-REft,D,POSN-7 




5522 


8ft 




DEFB 


10+80H 




5523 


42 




DEFM 


' BLOCK-REft' 




5524 


AC 










5525 


4F 










5526 


43 










5527 


4B 










5528 


2D 










5523 


52 










552ft 


45 










552B 


41 










552C 


C4 




DEFB 


' D' +80H 




552D 


0855 




DEFW 
ENDM 


POSN-7 




552F 




16610 BREftD 


DW 


S+2 




552F 


3155 




DEFW 
ENDM 


S+2 




5531 


El 


16620 


POP 


HL 




5532 


C5 


16630 


PU5H 


BC 




5533 


D5 


16640 


PUSH 


DE 




5534 


010004 


16650 


LD 


BC.400H 




5537 


CD0330 


16660 


CALL 


ESFREft 




553ft 


182B 


16670 
16680 ; 


JR 


ESFRTN 




553C 




16690 


HD 


1 1 , BLOCK-WRIT, E, BREftD- 


•13 


553C 


8B 




DEFB 


11+80H 




553D 


42 




DEFM 


' BLOCK -WRIT' 




553E 


4C 










553F 


4F 










5540 


43 










5541 


4B 










5542 


2D 










5543 


57 










5544 


52 










5545 


49 










5546 


54 










5547 


C5 




DEFB 


' E' +80H 




5548 


2255 




DEFW 
ENDM 


BREftD- 13 




554A 




16700 BWRITE 


DW 


S+2 




554ft 


4C55 




DEFW 
ENDM 


S+2 




554C 


El 


16710 


POP 


HL 




554D 


C5 


16720 


PUSH 


BC 




554E 


D5 


16730 


PUSH 


DE 




554F 


010004 


16740 


LD 


BC , 400H 




5552 


CD0630 


16750 


CftLL 


ESFWRI 




5555 


1810 


16760 
16770 ; 


JR 


ESFRTN 




5557 




16780 


HD 


4,MftR,K,BWRITE-14 




5557 


84 




DEFB 


4+80H 





5558 


4D 






DEFM 


' MAR' 


5559 


41 










555fi 


52 










S55B 


CB 






DEFB 


' K' +80H 


555C 


3C55 






DEFW 
ENDM 


BWRITE-14 


555E 




16790 


MARK 


DW 


*+2 


555E 


6055 






DEFW 
ENDM 


*+2 


5560 


El 


16800 




POP 


HL 


5561 


7D 


16810 




LD 


A,L 


5562 


C5 


16820 




PUSH 


BC 


5563 


D5 


16830 




PUSH 


DE 


5564 


CD2130 


16840 
16850 


J 


CALL 


ESFMRK 


5557 




16860 


ESFRTN 


EQU 


S 


5567 


Dl 


16870 




POP 


DE 


5568 


CI 


16880 




POP 


BC 


5569 


6F 


16890 




LD 


L.A 


556A 


2500 


16900 




LD 


H,0 


556C 


CB4F 


16910 




BIT 


1,A 


556E 


2809 


16920 




JR 


Z, ESFEND 


5570 


D5 


16930 




PUSH 


DE 


5571 


FDE5 


16940 




PUSH 


IY 


5573 


GD2B00 


16950 




CALL 


KYBD 


5576 


FDE1 


16960 




POP 


IY 


5578 


Dl 


16970 




POP 


DE 


5579 


C37B43 


16980 
16990 


ESFEND 

1 


JP 


HPUSH 






17000 


; VARIABLES & 


CONSTANTS FOR PER 






17010 


t 






557C 




17020 




HD 


3,US,E,MARK-7 


557C 


83 






DEFB 


3+80H 


557D 


55 






DEFM 


' US' 


557E 


53 










557F 


CS 






DEFB 


' E' +80H 


5580 


5755 






DEFW 
ENDM 


MARK -7 


5582 




17030 


USE 


DW2 


DOUAR.BUF1 


5532 


8048 






DEFW 


DOUAR 


5584 


E473 


17040 


S 


DEFW 
ENDM 


BUF1 


5586 




17050 




HD 


4,PRE,U,USE-6 


5586 


84 






DEFB 


4+80H 


5587 


50 






DEFM 


' PRE' 


5588 


52 










5589 


45 










558A 


D6 






DEFB 


' U' +80H 


558B 


7C55 






DEFW 
ENDM 


USE- 6 


558D 




17060 


PREY 


DW2 


DOUAR.BUF1 


558D 


8048 






DEFW 


DOUAR 


558F 


E473 


17070 


f 


DEFW 
ENDM 


BUF1 


5591 




17080 




HD 


5,*BUF,F,PREU-7 


5591 


85 






DEFB 


5+B0H 



I/O 
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DW8 


QERR , DUP , NFR , DP , STORE , LFR , RT , CONT 


57CE 


8B4B 




DEFW 


QERR 


57D0 


6947 




DEFW 


DUP 


57D2 


4D4B 




DEFW 


NFfi 


57D4 


5849 




DEFW 


DP 


S7D6 


E147 




DEFW 


STORE 


57D8 


2F4B 




DEFW 


LFR 


57DR 


RR47 




DEFW 


RT 


57DC 


R349 




DEFW 
ENDM 


CONT 


57DE 




18090 


DW3 


RT, STORE, SEMIS 


57DE 


RR47 




DEFW 


RT 


57E0 


E147 




DEFW 


STORE 


57E2 


5B46 


18100 ; 


DEFW 
ENDM 


SEMIS 


57E4 




18110 


HD 


4,BRC,K,F0RG-9 


S7E4 


84 




DEFB 


4+80H 



57E5 


42 






DEFM 


' B8C 




57EB 


41 












57E7 


43 












57E8 


CB 






DEFB 


' K' +80H 




57E9 


8557 






DEFW 
ENDM 


FORG-9 




57EB 




18120 


B8CK 


DW5 


DOCOL, HERE, SUBB, COMMfi, SEMIS 




57EB 


2448 






DEFW 


DOCOL 




57ED 


1648 






DEFW 


HERE 




57EF 


5848 






DEFW 


SUBB 




57F1 


3248 






DEFW 


C0MM8 




57F3 


5B46 


18130 




DEFW 
ENDM 


SEMIS 




57F5 




18148 




HD 


45H,BEGI,N,B8CK-7 




57F5 


C5 






DEFB 


45H+80H 




57F6 


42 






DEFM 


' BEG I' 




57F7 


45 












57F8 


47 












57F9 


49 












57F8 


CE 






DEFB 


' N' +80H 




57FB 


E457 






DEFW 
ENDM 


B8CK-7 




57FD 




18150 


BEGIN 


DW5 


DOCOL , QCOMP , HERE , ONE , SEMIS 




57FD 


2448 






DEFW 


DOCOL 




57FF 


854B 






DEFW 


QCOMP 




5881 


1848 






DEFW 


HERE 




5803 


8848 






DEFW 


ONE 




5805 


5B46 


18160 


f 


DEFW 
ENDM 


SEMIS 




5807 




18170 




HD 


45H,ENDI,F,BEGIN-8 




5807 


C5 






DEFB 


45H+80H 




5808 


45 






DEFM 


' ENDI' 




580S 


4E 












5808 


44 












580B 


49 












580C 


CS 






DEFB 


* F* +88H 




580D 


F557 






DEFW 
ENDM 


BEGIN-8 




580F 




18180 


END IFF 


DW8 


DOCOL , QCOMP , TWO , QP8IR , HERE , OUER , SUBB . 


,SW8P 


580F 


2448 






DEFW 


DOCOL 




5811 


854B 






DEFW 


QCOMP 




5813 


B248 






DEFW 


TWO 




5815 


D44B 






DEFW 


QP8IR 




5817 


1648 






DEFW 


HERE 




5818 


4047 






DEFW 


OUER 




581B 


5848 






DEFW 


SUBB 




581D 


5C47 






DEFW 
ENDM 


SWAP 




581F 




18190 




DW2 


STORE, SEMIS 




581F 


E147 






DEFW 


STORE 




5821 


5B46 


18200 


I 


DEFW 
ENDM 


SEMIS 




5823 




18210 




HD 


44H,THE,N.ENDIFF-8 




5823 


C4 






DEFB 


44H+80H 




5824 


54 






DEFM 


' THE' 





5825 


48 










5826 


45 










5827 


CE 






DEFB 


' N' +80H 


5828 


0758 






DEFW 
ENDM 


ENDIFF-8 


582ft 




18220 


THEN 


DW3 


DOCOL , ENDIFF , SEMIS 


582ft 


2448 






DEFW 


DOCOL 


582C 


0F58 






DEFW 


ENDIFF 


582E 


5B46 


18230 


5 


DEFW 
ENDM 


SEMIS 


5830 




18240 




HD 


42H,D,0,THEN-7 


5830 


C2 






DEFB 


4ZH+80H 


5831 


44 






DEFM 


' D' 


5832 


CF 






DEFB 


' 0' +80H 


5833 


2358 






DEFW 
ENDM 


THEN -7 


5835 




18250 


DO 


DW6 


DOCOL , COMP , XDO , HERE , THREE , SEMIS 


5835 


2448 






DEFW 


DOCOL 


5837 


1E4C 






DEFW 


COMP 


5839 


1F44 






DEFW 


XDO 


583B 


164ft 






DEFW 


HERE 


583D 


Bft48 






DEFW 


THREE 


583F 


5B46 


18260 


t 


DEFW 
ENDM 


SEMIS 


5841 




18270 




HD 


44H,L00,P,D0-5 


5841 


C4 






DEFB 


44H+80H 


5842 


4C 






DEFM 


' LOO' 


5843 


4F 










5844 


4F 










5845 


D0 






DEFB 


' P' +80H 


5846 


3058 






DEFW 
ENDM 


DO-5 


5848 




18280 


LOOP 


DW7 


DOCOL , THREE , QPftIR , COMP , XLOOP . BACK , SEMIS 


5348 


2448 






DEFW 


DOCOL 


584ft 


Bfl48 






DEFW 


THREE 


584C 


D44B 






DEFW 


QPftIR 


584E 


1E4C 






DEFW 


COMP 


5850 


DR43 






DEFW 


XLOOP 


5852 


EB57 






DEFW 


BftCK 


5854 


5B46 


18290 


» 


DEFW 
ENDM 


SEMIS 


5856 




18300 




HD 


45H,+L00,P,L00P-7 


5856 


C5 






DEFB 


45H+80H 


5857 


2B 






DEFM 


' +L00' 


5858 


4C 










5859 


4F 










585fl 


4F 










585B 


D0 






DEFB 


' P' +80H 


585C 


4158 






DEFW 
ENDM 


LOOP -7 


S85E 




18310 


PLOOP 


DW7 


DOCOL , THREE , QPftIR , COMP , XPLOO . BACK , SEMIS 


585E 


2448 






DEFW 


DOCOL 


5860 


Bft48 






DEFW 


THREE 


5862 


D44B 






DEFW 


QPftIR 


5864 


1E4C 






DEFW 


COMP 



5866 


1344 






DEFW 


XPLOO 


5868 


EB57 






DEFW 


BRCK 


586R 


5B46 


18320 


« 


DEFW 
ENDM 


SEMIS 


5S6C 




18330 




HD 


45H , UNT I , L , PLOOP - 8 


586C 


C5 






DEFB 


45H+80H 


586D 


55 






DEFM 


' UNT I' 


586E 


4E 










586F 


54 










5870 


49 










5871 


CC 






DEFB 


' L' +80H 


5872 


5658 






DEFW 
ENDM 


PL00P-8 


5874 




18340 


UNTIL 


DW7 


DOCOL, ONE, QPRIR, COMP, ZBRftN, BRCK. SEMIS 


5874 


2448 






DEFW 


DOCOL 


5876 


AR48 






DEFW 


ONE 


5878 


D44B 






DEFW 


QPRIR 


587fl 


1E4C 






DEFW 


COMP 


587C 


C643 






DEFW 


2BRRN 


587E 


EB57 






DEFW 


BACK 


5880 


5B46 


18350 


I 


DEFW 
ENDM 


SEMIS 


5832 




18360 




HD 


43H,EN,D,UNTIL-8 


5882 


C3 






DEFB 


43H+80H 


5883 


45 






DEFM 


' EN* 


5884 


4E 










5885 


C4 






DEFB 


' D' +80H 


5886 


6C58 






DEFW 
ENDM 


UNTIL-8 


5888 




18370 


ENDD 


DW3 


DOCOL, UNTIL, SEMIS 


5888 


2448 






DEFW 


DOCOL 


588R 


7458 






DEFW 


UNTIL 


588C 


5B46 


18380 


» 


DEFW 
ENDM 


SEMIS 


588E 




18390 




HD 


45H,RGRI,N,ENDD-6 


588E 


CS 






DEFB 


45H+80H 


588F 


41 






DEFM 


' RGRI' 


5890 


47 










5881 


41 










5832 


48 










5893 


CE 






DEFB 


' N' +80H 


5894 


8258 






DEFW 
ENDM 


ENDD-6 


5886 




18400 


RGRIN 


DW7 


DOCOL , ONE , QPRIR , COMP , BRRN , BRCK , SEMIS 


5896 


2448 






DEFW 


DOCOL 


5898 


flft48 






DEFW 


ONE 


589ft 


D44B 






DEFW 


QPRIR 


589C 


1E4C 






DEFW 


COMP 


589E 


RF43 






DEFW 


BRRN 


58R0 


EB57 






DEFW 


BACK 


58R2 


5B46 


18410 


f 


DEFW 
ENDM 


SEMIS 


58R4 




18420 




HD 


46H , REPER , T , RGRIN-8 


58R4 


C6 






DEFB 


46H+80H 



58R5 52 






DEFM 


' REPER' 


58R6 45 










58B7 50 










S8R8 45 










58R9 41 










58RR D4 






DEFB 


' T +80H 


58RB 8E58 






DEFW 
ENDM 


RGRIN-8 


58RD 


18430 


REPER 


DW8 


DOCOL , TOR , TOR , RGAIN , FROMR , FROMR , TWO . SUBB 


58RD 2448 






DEFW 


DOCOL 


S8RF 8646 






DEFW 


TOR 


58B1 8646 






DEFW 


TOR 


58B3 3658 






DEFW 


RGRIN 


58B5 8C46 






DEFW 


FROMR 


58B7 -9C46 






DEFW 


FROMR 


58B9 B248 






DEFW 


TWO 


58BB 5R4R 






DEFW 
ENDM 


SUBB 


58BD 


18440 




DW2 


ENDIFF, SEMIS 


58BD 0F58 






DEFW 


END IFF 


58BF 5B46 


18450 


9 


DEFW 
ENDM 


SEMIS 


58C1 


18460 




HD 


42H,I,F,REPEfl-S 


58C1 C2 






DEFB 


42H+80H 


58C2 49 






DEFM 


' I' 


58C3 C6 






DEFB 


' F' +80H 


58C4 R458 






DEFW 
ENDM 


REPEfl-9 


58C6 


18470 


IFF 


DW8 


DOCOL , COMP , ZBRRN , HERE , ZERO , COMMR , T WO , SEM I S 


58C6 2448 






DEFW 


DOCOL 


58C8 1E4C 


* 




DEFW 


COMP 


58CR C643 






DEFW 


ZBRRN 


S8CC JL64R 






DEFW 


HERE 


53CE R248 






DEFW 


ZERO 


58D0 324fl 






DEFW 


COMMR 


58D2 B248 






DEFW 


TWO 


5SD4 5B46 


18480 


t 


DEFW 
ENDM 


SEMIS 


58D6 


18490 




HD 


44H,ELS,E,IFF-5 


58D6 C4 






DEFB 


44H+80H 


58D7 45 






DEFM 


'ELS' 


58D8 4C 










58D9 53 










58DR C5 






DEFB 


' E' +80H 


58DB C158 






DEFW 
ENDM 


IFF-5 


58DD 


18500 


ELSEE 


DW8 


DOCOL , TWO , QPRIR , COMP , BRRN , HERE , ZERO . COMMR 


58DD 2446 






DEFW 


DOCOL 


58DF B248 






DEFW 


TWO 


58E1 D44B 






DEFW 


QPRIR 


58E3 1E4C 






DEFW 


COMP 


58E5 AF43 






DEFW 


BRRN 


58E7 164A 






DEFW 


HERE 


58E9 (=1248 






DEFW 


ZERO 


58EB 324R 






DEFW 
ENDM 


COMMR 



58ED 




18510 




DW5 


SWAP, TWO, ENDIFF, TWO, SEMIS 




58ED 
58EF 


5C47 
B248 






DEFW 
DEFW 


SWAP 
TWO 




58F1 


0F58 






DEFW 


ENDIFF 




58F3 


B248 






DEFW 


TWO 




58F5 


5B46 


18520 


? 


DEFW 
ENDM 


SEMIS 




58F7 




18530 




HD 


45H , WHIL , E , ELSEE-7 




58F7 
58F8 


CS 
57 






DEFB 
DEFM 


45H+80H 
' WHIL' 




58F9 


48 












58FA 


43 












SBFB 


4C 












58FC 


CS 






DEFB 


' E' +80H 




58FD 


D658 






DEFW 
ENDM 


ELSEE-7 




58FF 




18540 


WHILE 


DW4 


DOCOL , IFF , TWOP , SEMIS 




58FF 


2448 






DEFW 


DOCOL 




5801 


CB58 






DEFW 


IFF 




5803 


07 4 A 






DEFW 


TWOP 




5905 


5B46 


18550 


> 


DEFW 
ENDM 


SEMIS 




5307 




18560 




HD 


6 , SPACE, S, WHILE- 8 




5907 


86 






DEFB 


6+80H 




5808 


53 






DEFM 


' SPACE' 




5908 


50 












590fl 


41 












590B 


43 












590C 


45 












590D 


D3 






DEFB 


' S' +80H 




590E 


F758 






DEFW 
ENDM 


WHILE-8 




5910 




18570 


SPfiCS 


DW8 


DOCOL , ZERO , MAX , DDUP , 2BRAN , SPAX1 -S , 


, ZERO . XDO 


5910 


2448 






DEFW 


DOCOL 




5912 


A248 






DEFW 


ZERO 




5914 


6F53 






DEFW 


MAX 




5915 


E34A 






DEFW 


DDUP 




5918 


CG43 






DEFW 


ZBRAN 




531A 


0C00 






DEFW 


SPAX1-* 




581C 


A248 






DEFW 


ZERO 




59 IE 


1F44 






DEFW 
ENDM 


XDO 




5920 




18580 


SPAX2 


DW3 


SPACE , XLOOP , SP AX2 - S 




5920 


D44A 






DEFW 


SPACE 




5822 


DA43 






DEFW 


XLOOP 




5824 


FCFF 






DEFW 
ENDM 


SPAX2-» 




5926 




18530 


SPAX1 


DW 


SEMIS 




5926 


5B46 


18600 


f 


DEFW 
ENDM 


SEMIS 




5928 




18610 




HD 


2,<,#,SPACS-9 




5928 


82 






DEFB 


2+80H 




5929 


3C 






DEFM 


' <' 




532A 


R3 






DEFB 


' *' +80H 




592B 


0753 






DEFW 


SPACS-9 













ENDM 




592D 




18620 


BDIGS 


DW5 


DOCOL , PftD , HLD , STORE , SEMIS 


592D 


2448 






DEFW 


DOCOL 


592F 


E34E 






DEFW 


PftD 


5931 


F149 






DEFW 


HLD 


5933 


E147 






DEFW 


STORE 


5935 


5B46 


18630 


f 


DEFW 
ENDM 


SEMIS 


5937 




18640 




HD 


2,*, >,BDIGS-5 


5937 


82 






DEFB 


2+80H 


5938 


23 






DEFM 


' #' 


5939 


BE 






DEFB 


' >' +80H 


593ft 


2859 






DEFW 
ENDM 


BDIGS-5 


593C 




18650 


EDIG5 


DW8 


DOCOL , DROP , DROP , HLD , ftT , PftD , OUER . SUBB 


593C 


2448 






DEFW 


DOCOL 


593E 


4F47 






DEFW 


DROP 


5940 


4F47 






DEFW 


DROP 


5942 


F149 






DEFW 


HLD 


5944 


ftft47 






DEFW 


FIT 


5946 


E34E 






DEFW 


PftD 


5948 


4047 






DEFW 


OUER 


S94fl 


5ft4fi 






DEFW 
ENDM 


SUBB 


594C 




18660 




DW 


SEMIS 


594C 


5B46 


18670 


f 


DEFW 
ENDM 


SEMIS 


S94E 




18680 




HD 


4,SIG,N,EDIGS-5 


534E 


84 






DEFB 


4+80H 


594F 


53 






DEFM 


' SIG' 


5950 


49 










5951 


47 










5952 


CE 






DEFB 


' N' +80H 


5953 


3759 






DEFW 
ENDM 


EDIGS-5 


5955 




18690 


8IGN 


DW8 


DOCOL , ROT , ZLESS , ZBRftN , SIGN1 -S . LIT . 02DH . HOLD 


5955 


2448 






DEFW 


DOCOL 


5957 


C44ft 






DEFW 


ROT 


5959 


CA46 






DEFW 


ZLESS 


595B 


C643 






DEFW 


ZBRftN 


595D 


0800 






DEFW 


SIGN1-S 


595F 


8D43 






DEFW 


LIT 


5961 


2D00 






DEFW 


02DH 


5963 


CB4E 






DEFW 
ENDM 


HOLD 


5965 




18700 


5IGN1 


DW 


SEMIS 


5965 


5B46 


18710 


9 


DEFW 
ENDM 


SEMIS 


5967 




18720 




DB 


81H 


5967 


81 






DEFB 
ENDM 


81H 


5968 




18730 




MB 


* 


5968 


ft3 






DEFB 
ENDM 


' *' +80H 


5969 




18740 




DW 


SIGN-7 



5969 


4E59 






DEFW 
ENDM 


SIGN-7 


596B 




18750 


DIG 


DW8 


DOCOL , BRSE , RT . MSMOD , ROT , LIT , 9 . OVER 


596B 


2448 






DEFW 


DOCOL 


596D 


C549 






DEFW 


BRSE 


596F 


RFI47 






DEFW 


RT 


5971 


2754 






DEFW 


MSMOD 


5973 


C44R 






DEFW 


ROT 


5975 


8D43 






DEFW 


LIT 


5977 


0900 






DEFW 


9 


5979 


4047 






DEFW 
ENDM 


OYER 


597B 




18760 




DW6 


LESS , ZBRflN , DIG1 - S , LIT , 7 , PLUS 


597B 


744R 






DEFW 


LESS 


597D 


C643 






DEFW 


ZBRRN 


597F 


0800 






DEFW 


DIG1-* 


5991 


8D43 






DEFW 


LIT 


5983 


0700 






DEFW 


7 


5985 


DC4G 






DEFW 
ENDM 


PLUS 


5987 




18770 


DIG1 


DW5 


LIT , 30H , PLUS , HOLD , SEMIS 


5987 


8D43 






DEFW 


LIT 


5989 


3000 






DEFW 


30H 


598B 


DC46 






DEFW 


PLUS 


598D 


CB4E 






DEFW 


HOLD 


538F 


5B46 


18780 


1 


DEFW 
ENDM 


SEMIS 


5991 




18790 




HD 


2,#,S,DIG-4 


5991 


82 






DEFB 


2+80H 


5992 


23 






DEFM 


' ** 


5993 


D3 






DEFB 


' S' +80H 


5994 


6759 






DEFW 
ENDM 


DIG-4 


5998 




18800 


DIG5 


DW 


DOCOL 


5996 


2448 






DEFW 
ENDM 


DOCOL 


5398 




18810 


DIGS1 


DW8 


DIG, OUER, OUER, ORR.ZEQU, ZBRRN. DIGS1-*. SEMIS 


5998 


6B59 






DEFW 


DIG 


599R 


4047 






DEFW 


OYER 


599C 


4047 






DEFW 


OUER 


599E 


E945 






DEFW 


ORR 


59R0 


B746 






DEFW 


ZEQU 


59R2 


C643 






DEFW 


ZBRflN 


59R4 


F4FF 






DEFW 


DIGS1-S 


S9R6 


5B46 


18820 


* 


DEFW 
ENDM 


SEMIS 


59R8 




18830 




HD 


3,D.,R,DIGS-5 


59R8 


83 






DEFB 


3+80H 


59fl9 


44 






DEFM 


' D.' 


59RR 


2E 










59RB 


D2 






DEFB 


' R' +80H 


59RC 


9159 






DEFW 
ENDM 


DIGS-5 


59RE 




18840 


DDOTR 


DW8 


DOCOL, TOR , SWRP , OUER , DRBS , BDIGS . DIGS . SIGN 


S9RE 


2448 






DEFW 


DOCOL 


59B0 


8646 






DEFW 


TOR 



S9B2 


5C47 






DEFW 


9WRP 


59B4 


4047 






DEFW 


OUER 


53B6 


4BS3 






DEFW 


DABS 


59B8 


2D59 






DEFW 


BDIGS 


59BR 


9G59 






DEFW 


DIG5 


59BC 


5559 






DEFW 
ENDM 


SIGN 


59BE 




18850 




DW7 


EDIGS , FROMR , OUER , SUBB , SPRCS , TYPE , SEMIS 


59BE 


3C59 






DEFW 


EDIGS 


59C0 


9C46 






DEFW 


FROMR 


59C2 


4947 






DEFW 


CUER 


59C4 


5R4R 






DEFW 


SUBB 


59CS 


1059 






DEFW 


SPRCS 


53C8 


0D4D 






DEFW 


TYPE 


59CR 


5B46 


18850 


t 


DEFW 
ENDM 


SEMIS 


59CC 




18870 




HD 


2, . .R.DDOTR-6 


59CC 


82 






DEFB 


2+80H 


59CD 


2E 






DEFM 


' , ' 


59CE 


D2 






DEFB 


' R' +80H 


59CF 


A859 






DEFW 
ENDM 


DDOTR-6 


59D1 




18880 


DOTR 


DW6 


DOCOL, TOR , STOD , FROMR , DDOTR , SEMIS 


59D1 


2448 






DEFW 


DOCOL 


59D3 


8846 






DEFW 


TOR 


59D5 


0453 






DEFW 


STOD 


59D7 


9C4G 






DEFW 


FROMR 


59D9 


RE59 






DEFW 


DDOTR 


59DB 


5B46 


18890 


• 


DEFW 
ENDM 


SEMIS 


53DD 




18900 




HD 


2,D, . ,D0TR-5 


59DD 


82 






DEFB 


2+80H 


59DE 


44 






DEFM 


' D' 


59DF 


RE 






DEFB 


' . ' +80H 


59E0 


CC59 






DEFW 
ENDM 


DOTR-5 


S9E2 




18310 


DDOT 


DW5 


DOCOL , ZERO , DDOTR , SPRCE , SEM IS 


59E2 


2448 






DEFW 


DOCOL 


59E4 


FI248 






DEFW 


ZERO 


59E6 


RE59 






DEFW 


DDOTR 


59E8 


D44A 






DEFW 


SPRCE 


59EA 


5B4G 


18920 


1 


DEFW 
ENDM 


SEMIS 


59EC 




18930 




DB 


81H 


59EC 


81 






DEFB 
ENDM 


81H 


59ED 




18940 




MB 


m 


59ED 


RE 






DEFB 
ENDM 


' . ' +80H 


59EE 




18950 




DW 


DDOT-5 


59EE 


DD59 






DEFW 
ENDM 


DDOT-5 


59F0 




18960 


DOT 


DW4 


DOCOL , STOD, DDOT, SEM IS 


59F0 


2448 






DEFW 


DOCOL 


59F2 


0453 






DEFW 


STOD 



S9F4 


E2S9 






DEFW 


DDOT 


59FB 


5B46 


18970 


* 


DEFW 
ENDM 


SEMIS 


59F8 




18980 




DB 


81H 


59F8 


81 






DEFB 
ENDM 


81H 


59F9 




18990 




MB 


? 


59F9 


BF 


4 




DEFB 
ENDM 


' ?' +80H 


S9F0 




19000 




DW 


DOT-4 


59F0 


EC59 






DEFW 
ENDM 


DOT-4 


59FC 




19010 


QUES 


DW4 


DOCOL, OT, DOT, SEMIS 


59FC 


2448 


• 




DEFW 


DOCOL 


59FE 


0047 






DEFW 


OT 


5000 


F059 






DEFW 


DOT 


5002 


5B46 


19020 


t 


DEFW 
ENDM 


SEMIS 


5004 




19030 




HD 


2, U,., QUES-4 


5004 


82 






DEFB 


2+80H 


5005 


55 






DEFM 


' U' 


5006 


0E 






DEFB 


' . ' +80H 


5007 


F859 






DEFW 
ENDM 


QUES-4 


5009 




19040 


UDOT 


DW4 


DOCOL, ZERO, DDOT, SEMIS 


5009 


2448 






DEFW 


DOCOL 


5O0B 


0248 






DEFW 


ZERO 


5O0D 


E259 






DEFW 


DDOT 


5O0F 


5B4B 


19050 


9 


DEFW 
ENDM 


SEMIS 


5011 




19060 




HD 


5,ULIS,T,UD0T-5 


5011 


85 






DEFB 


5+80H 


5012 


56 






DEFM 


' ULIS' 


5013 


4C 










5014 


49 










5015 


53 










5016 


D4 






DEFB 


' T +80H 


5017 


0450 






DEFW 
ENDM 


UDOT -5 


5019 




19070 


ULIST 


DW8 


DOCOL , LIT , 80H , OUTT , STORE , CONJ, OT , OT 


5019 


2448 






DEFW 


DOCOL 


501B 


8D43 






DEFW 


LIT 


501D 


8000 






DEFW 


80H 


501F 


8149 






DEFW 


OUTT 


5021 


E147 






DEFW 


STORE 


5023 


0349 






DEFW 


CONT 


5025 


0047 






DEFW 


OT 


5027 


0047 






DEFW 
ENDM 


OT 


5029 




19080 


ULIS1 


DW8 


OUTT , OT , CSLL , GREOT , ZBRON , UL I S2 - * , CR . ZERO 


5029 


8149 






DEFW 


OUTT 


502B 


0047 






DEFW 


OT 


502D 


CD48 






DEFW 


CSLL 


502F 


B640 






DEFW 


GREOT 


5031 


C643 






DEFW 


ZBRON 



5R33 


0R00 






DEFW 


ULIS2-S 


5R3S 


3745 






DEFW 


CR 


5R37 


R248 






DEFW 
ENDM 


ZERO 


5R39 




19090 




DW2 


OUTT , STORE 


5R39 


8149 






DEFW 


OUTT 


5R3B 


E147 






DEFW 
ENDM 


STORE 


5R3D 




19100 


ULIS2 


DW8 


DUP , IDDOT , SPRCE , SPRCE , PFR , LFR , RT , DUP 


5A3D 


6947 






DEFW 


DUP 


5A3F 


5950 






DEFW 


IDDOT 


5A41 


D44R 






DEFW 


SPRCE 


5R43 


D44R 






DEFW 


SPRCE 


5A45 


634B 






DEFW 


PFR 


5A47 


2F4B 






DEFW 


LFR 


5R49 


RR47 






DEFW 


RT 


5R4B 


6947 






DEFW 
ENDM 


DUP 


SR4D 




19110 




DW7 


ZEQU , QTERM , ORR , ZBRRN , ULIS1 -S , DROP . SEMIS 


5R4D 


B74G 






DEFW 


ZEQU 


5R4F 


2R45 






DEFW 


QTERM 


5R51 


E945 






DEFW 


ORR 


5A53 


C643 






DEFW 


ZBRRN 


5R55 


D4FF 






DEFW 


ULIS1-* 


5AS7 


4F47 






DEFW 


DROP 


5R59 


5B4G 


19120 


I 


DEFW 
ENDM 


SEMIS 


5R5B 




19130 




HD 


3,BY,E,YLIST-8 


5R5B 


83 






DEFB 


3+S0H 


5R5C 


42 






DEFM 


' BY' 


5R5D 


59 










5R5E 


C5 






DEFB 


' E' +80H 


5FI5F 


11SR 






DEFW 
ENDM 


ULIST-8 


5R61 




19140 


BYE 


DW 


$+2 


5RG1 


635R 






DEFW 
ENDM 


S+2 


5A63 


C37200 


19150 
19160 


1 


JP 


72H ; WRRM RTN TO LEU II 


5R66 




19170 




HD 


4,LIS,T,BYE-G 


5R6G 


84 






DEFB 


4+80H 


5A67 


4C 






DEFM 


' LIS' 


5R68 


49 










5A69 


53 










5RGR 


D4 






DEFB 


' T' +80H 


5R6B 


5B5R 






DEFW 
ENDM 


BYE -6 


SflGD 




19180 


LIST 


DW7 


DOCOL , DEC , CR , DUP , SCR , STORE , PDOTQ 


5R6D 


2448 






DEFW 


DOCOL 


5R6F 


7F4C 






DEFW 


DEC 


5R71 


3745 






DEFW 


CR 


5R73 


6947 






DEFW 


DUP 


5A75 


8R49 






DEFW 


SCR 


5R77 


E147 






DEFW 


STORE 


5R79 


GE4D 






DEFW 
ENDM 


PDOTQ 


5R7B 




19190 




DB 


6 



SR7B 


06 






DEFB 
ENDM 


6 


5R7C 


53 


19200 




DEFM 


' SCR * ' 


5A7D 


43 










5R7E 


52 










5R7F 


28 










SR80 


23 










5R81 


20 










5R82 




19210 




DW5 


DOT , LIT , 10H , ZERO , XDO 


SR82 


F059 






DEFW 


DOT 


5R84 


8D43 






DEFW 


LIT 


5R86 


1000 






DEFW 


10H 


5R88 


R248 






DEFW 


ZERO 


5A8R 


1F44 






DEFW 
ENDM 


XDO 


5R8C 




19220 


LIST1 


DW8 


CR, IDO , LIT , 3 , DOTR , SPRCE , IDO , SCR 


5R8C 


3745 






DEFW 


CR 


5A8E 


3B44 






DEFW 


IDO 


5A80 


8D43 






DEFW 


LIT 


5R92 


0300 






DEFW 


3 


5A94 


D159 






DEFW 


DOTR 


5R96 


D44R 






DEFW 


SPRCE 


5R98 


3B44 






DEFW 


IDO 


5R9R 


8R49 






DEFW 
ENDM 


SCR 


5R9C 




19230 




DW6 


RT , DLINE, QTERM, ZBRRN, LIST2-S , LERUE 


SR9C 


RA47 






DEFW 


RT 


5A9E 


8C54 






DEFW 


DLINE 


5AR0 


2R45 






DEFW 


QTERM 


5RRZ 


C643 






DEFW 


ZBRRN 


SAA4 


0400 






DEFW 


LIST2-* 


5RR6 


7246 






DEFW 
ENDM 


LERUE 


SRA8 




19240 


LIST2 


DW4 


XLOOP , LIST1 -S , CR , SEMIS 


5RR8 


DR43 






DEFW 


XLOOP 


5RRFI 


E2FF 




- 


DEFW 


LIST1-S 


5RFIC 


3745 






DEFW 


CR 


5flRE 


5B46 


19250 


f 


DEFW 
ENDM 


SEMIS 


5RB0 




19260 




HD 


S,INDE,X,LIST-7 


5RB0 


85 






DEFB 


S+80H 


5RB1 


49 






DEFM 


' INDE' 


5AB2 


4E 










5RB3 


44 










5RB4 


45 










5RB5 


D8 






DEFB 


' X' +80H 


5RB6 


665ft 






DEFW 
ENDM 


LIST-7 


5RB8 




19270 


INDEX 


DW8 


DOCOL, LIT, FF, EMIT, CR, ONEP , SWRP . XDO 


5RB8 


2448 






DEFW 


DOCOL 


5RBR 


8D43 






DEFW 


LIT 


5ABC 


0C00 






DEFW 


FF 


SflBE 


0745 






DEFW 


EMIT 


5RC0 


3745 






DEFW 


CR 


5RC2 


FR49 






DEFW 


ONEP 


5RC4 


5C47 






DEFW 


SWRP 


5RC6 


1F44 






DEFW 


XDO 











ENDM 




SRC8 




19280 


INDEi 


DW8 


CR,ID0,LIT,3,D0TR,SPRCE,ZER0,ID0 


5RC8 


3745 






DEFW 


CR 


5RCR 


3B44 






DEFW 


I DO 


5FICC 


8D43 






DEFW 


LIT 


5RCE 


0300 






DEFW 


3 


SF1D0 


D159 






DEFW 


DOTR 


5flD2 


D44R 






DEFW 


5PRCE 


5RD4 


R248 






DEFW 


ZERO 


SflDS 


3B44 






DEFW 
ENDM 


I DO 


5RD8 




19290 




DW5 


DLINE , QTERM , ZBRRN , INDE2 - S , LERUE 


5RD8 


6C54 






DEFW 


DLINE 


SRDfl 


2R45 






DEFW 


QTERM 


5RDC 


C643 






DEFW 


ZBRRN 


5RDE 


0400 






DEFW 


INDE2-* 


5RE0 


7246 






DEFW 
ENDM 


LERUE 


5RE2 




19300 


INDE2 


DW3 


XLOOP.INDE1-S, SEMIS 


5RE2 


DR43 






DEFW 


XLOOP 


SRE4 


B4FF 






DEFW 


INDE1-* 


5RE6 


5B46 


19310 


* 


DEFW 
ENDM 


SEMIS 


5RE8 




19320 




HD 


5,TRIR,D,INDEX-8 


5RE8 


85 






DEFB 


5+80H 


5RE8 


54 






DEFM 


' TRIfl' 


5RER 


52 










5REB 


49 










5REC 


41 










5RED 


C4 






DEFB 


' D' +S0H 


BREE 


B05R 






DEFW 
ENDM 


INDEX-8 


5RF0 




19330 


TRIRD 


DW8 


DOC0L,LIT,FF,EMIT,LIT,3,SLRSH,LIT 


5RF0 


2448 






DEFW 


DOCOL 


5RF2 


8D43 






DEFW 


LIT 


5RF4 


0C08 






DEFW 


FF 


5RF6 


0745 






DEFW 


EMIT 


5RF8 


8D43 






DEFW 


LIT 


5RFR 


0300 






DEFW 


3 


5RFC 


E453 






DEFW 


SLRSH 


5RFE 


8D43 






DEFW 
ENDM 


LIT 


5B00 




19340 




DW8 


3,STRR,LIT,3,0UER,PLUS,SWRP,XD0 


5B00 


0300 






DEFW 


3 


5B02 


C553 






DEFW 


STRR 


5B04 


8D43 






DEFW 


LIT 


5B06 


0300 






DEFW 


3 


5B08 


4047 






DEFW 


OUER 


5B0A 


DC4S 






DEFW 


PLUS 


5B0C 


5C47 






DEFW 


SWRP 


5B0E 


1F44 






DEFW 
ENDM 


XDO 


5B10 




19350 


TRIfll 


DW7 


CR.IDO, LIST, QTERM, ZBRRN, TRIR2-*. LERUE 


5B10 


3745 






DEFW 


CR 


5B12 


3B44 






DEFW 


I DO 


5B14 


6D5R 






DEFW 


LIST 


5B16 


2R45 






DEFW 


QTERM 



5B18 


C643 






DEFW 


ZBRAN 


5B1A 


0480 






DEFW 


TRIA2-* 


5B1C 


7246 






DEFW 
ENDM 


LEAVE 


5B1E 




19360 


TRIA2 


DW8 


XLOOP, TRIA1-5, CR, LIT, 15, MESS.. CR , SEMIS 


5B1E 


DA43 






DEFW 


XLOOP 


5B20 


F0FF 






DEFW 


TRIA1-* 


5B22 


3745 






DEFW 


CR 


5824 


8D43 






DEFW 


LIT 


5B2B 


0F00 






DEFW 


15 


5B29 


8054 






DEFW 


MESS 


5B2FI 


3745 






DEFW 


CR 


5B2C 


5B46 


19370 


» 


DEFW 
ENDM 


SEMIS 


5B2E 




19380 




HD 


4, ,CP,U,TRIFiD-8 


5B2E 


84 






DEFB 


4+80H 


5B2F 


2E 






DEFM 


' .CP' 


SB30 


43 










5B31 


50 










5B32 


D5 






DEFB 


* U' +80H 


5B33 


E35A 






DEFW 
ENDM 


TRIAD-8 


5B35 




19390 


DOTCPU 


DW8 


DOCOL , BASE , AT , LIT , 36 , BASE , STORE , L I T 


5B35 


2448 






DEFW 


DOCOL 


5B37 


C549 






DEFW 


BASE 


5B33 


AA47 






DEFW 


AT 


SB3B 


8D43 






DEFW 


LIT 


5B3D 


2400 






DEFW 


36 


5B3F 


C549 






DEFW 


BASE 


5B41 


E147 






DEFW 


STORE 


5B43 


8D43 






DEFW 
ENDM 


LIT 


5B45 




19400 




DW7 


22H.P0RIG, TAT ,DDOT, BASE, STORE, SEMIS 


5B45 


2200 






DEFW 


22H 


5B4? 


0B49 






DEFW 


PORIG 


5B49 


C747 






DEFW 


TAT 


5B4B 


E259 






DEFW 


DDOT 


5B4D 


C549 






DEFW 


BASE 


5B4F 


E147 






DEFW 


STORE 


5B51 


5B46 


19410 


I 


DEFW 
ENDM 


SEMIS 


5B53 




19420 




HD 


4,TAS,K,D0TCPU-7 


5B53 


84 






DEFB 


4+80H 


5B54 


54 






DEFM 


' TAS* 


5B55 


41 










5B56 


53 










5B57 


CB 






DEFB 


' K' +80H 


5B58 


2E5B 






DEFW 
ENDM 


DOTCPU-7 


5B5A 




19430 


TASK 


DW2 


DOCOL, SEMIS 


5B5A 


2448 






DEFW 


DOCOL 


SB5C 


5B46 


19440 


* 


DEFW 
ENDM 


SEMIS 


SB5E 




19450 


INITDP: 


DEFS 


EM-» ; CONSUME MEM TO LIMF 


4358 




19460 




END 


ORIG. 



00000 TOTAL ERRORS 



ABL 


0020 


ABORT 


5269 


ABS 


533C 


ACR 


000D 


ADOT 


002E 


AGAIN 


5896 


ALLOT 


4A26 


ANDD 


45D7 


ARROW 


573D 


AT 


47AA 


BACK 


57EB 


BASE 


49C5 


BBUF 


48F1 


BCOMP 


50E8 


BDIGS 


592D 


BEGIN 


57FD 


BELL 


0007 


BL 


48C3 


BLANK 


4EBC 


BLK 


4970 


BLOC1 


56B2 


BL0C2 


5680 


BL0C3 


569A 


FLOCK 


5662 


BRAN 


43AF 


3RAN1 


43B1 


BREAD 


552F 


BSCR 


48FD 


ESCRE 
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BSIN 


0008 


BSOUT 


0008 


BUF1 


73E4 


BUFFI 


5624 


BUFF2 


564A 


BUFFE 


561A 


BUILD 


4CC3 


BWRITE 


554A 


BYE 


5A61 


C0 


0404 


CAT 


47B3 


CCOMM 


4A43 


CFA 


4B3F 


CLD 


52A5 


CLD1 


52BA 


CMOUE 


4544 


COLD 


52C3 


COLON 


4810 


COMMA 


4A32 


COMP 


4C1E 


CON 


485C 


CONT 


49A3 


COUNT 


4CFA 


CR 


4537 


CREA1 


50A6 


CREAT 


5090 


CSLL 


48CD 



CSPP 


49E0 




CSTOR 


47F0 




CURR 


49B0 




DABS 


534B 




DB 




M 


DDOT 


59E2 




DDOTR 


59AE 




DDUP 


4AE3 




DDUP1 


4RED 




DEC 


4C7F 




DEFIN 


521B 




DFIN1 


500fl 




DFIND 


4FEA 




DIG 


596B 




DIG1 


S987 




BIGI1 


44G5 




DIGI2 


4470 




DIGIT 


444F 




DIGS 


599G 




DIGS1 


5998 




DLE 
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DLINE 


546C 




DLIT1 
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DLITE 
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DM 




M 


DMINU 


4722 




DO 


5835 




DOCOL 


4824 




DOCON 


4866 




DODOE 


4CDF 




DOES 


4CD3 




DOT 


59F0 




DOTCPU 


5B35 




DOTQ 


4D87 




DOTQ1 


4DA7 




D0TQ2 


4DRF 




DOTR 


59D1 




DOUSE 


4892 




DOUflC 


51F3 




DOUflR 


4880 




DP 


4958 




DP0 


4387 




DPL 


49CE 




DPLUS 


46E9 




DPM 


S32fi 




DPMI 


5334 




DPUSH 


437A 




DROP 


474F 




DR2ER 


5607 




DSPLY 


0033 




DTRftl 


4D43 




DTRR2 


4D5D 




DTRFI3 


4D61 




DTRfll 


4D3B 




DUP 


4769 




DW 




M 


DW2 




M 


DW3 




M 



DW4 




M 


DW5 




M 


DM6 




M 


DW7 




M 


DW8 




M 


EDIGS 


593C 




ELSEE 


5SDD 




EM 


7FF0 




EMIT 


4507 




ENCL 


44C7 




ENCL1 


44D1 




ENCL2 


44E7 




ENCL3 


44F1 




ENCL4 


44F8 




ENDD 


5888 




END IFF 


580F 




EQUftL 


4A68 




ERFISEE 


4ERB 




ERR01 


5032 




ERR02 


5051 




ERROR 


5024 




ESFEND 


5573 




ESFMRK 


3021 




ESFP1 


551D 




ESFPSN 


300F 




ESFREF) 


3003 




ESFREW 


3000 




ESFRTN 


5567 




ESFSEL 


3012 




ESFWRI 


3006 




EXEC 


43FI1 




EXPE1 


4DC4 




EXPE2 


4DFE 




EXPE3 


4E24 




EXPE4 


4E16 




EXPE5 


4E18 




EXPE6 


4DF6 




EXPE7 


4DFA 




EXPEC 


4DBft 




FENCE 


4950 




FF 


000C 




FILL 


4E8D 




FILL1 


4E9S 




FILL2 


4E9F 




FIRST 


48D9 




FLD 


49D7 




FLUS1 


56F8 




FLUSH 


56EE 




FORG 


57RE 




FORTH 


5203 




FROMR 


469C 




GREAT 


4RB6 




HD 




M 


HERE 


4«16 




HEX 


4C69 




HLD 


49F1 




HOLD 


4ECB 




HPUSH 


437B 





IDDOT 


5059 


IDO 


443B 


IFF 


58C6 


IMMED 


SIBfl 


INDE1 


5ftC8 


INDE2 


5RE2 


INDEX 


5RBS 


INITDP 


SB5E 


INITR0 


73ft4 


INITS0 


7304 


INN 


4978 


INTE1 


516E 


INTE2 


5190 


INTE3 


5186 


INTE4 


518ft 


INTE5 


Slftfi 


INTEB 


51ft4 


INTE7 


51R8 


INTER 


S16C 


KBBUF 


0400 


KEY 


4519 


KYBD 


882B 


LflTES 


4B1F 


LBRftC 


4C34 


LEftUE 


4672 


LES1 


4FI80 


LLJc 


4fi8B 


LESS 


4fl74 


LF 


000ft 


LFfl 


4B2F 


LIMIT 


48E5 


LIST 


SflSD 


LISTi 


5ft8C 


LIST2 


5Afl8 


LIT 


438D 


LITE1 


5114 


LITER 


5104 


LORD 


570B 


LOOP 


5848 


MARK 


555E 


MAX 


536F 


MfiXi 


537B 


MB 




MESS 


5480 


MESS1 


54ft6 


MESS2 


54ft2 


MESS3 


54B1 


MIN 


5359 


MINI 


5365 


MINUS 


470C 


MODD 


S3F4 


MPYX 


4574 


MPYX1 


4579 


MPYX2 


4581 


MSLftS 


539F 


MSMOD 


5427 


MSTftR 


5384 


MTBUF 


S5F3 



M 



NBUF 


0003 


NEXT 


437C 


NEXT1 


4382 


NFR 


4B4D 


NOBUF 


5599 


NOOP 


484D 


NSCR 


0003 


NULL 


4E4E 


NULL1 


4E80 


NULL2 


4E7C 


NULL3 


4E84 


NUMB 


4F92 


NUMB1 


4FB0 


'1UMB2 


4FDG 


NUMB3 


4FE0 


OFSET 


499G 


ONE 


48RR 


ONEP 


49FR 


ORIG 


4350 


ORR 


4SE9 


OUTT 


4981 


OVER 


4740 


PRBOR 


5016 


PRD 


4EE3 


PRREN 


522B 


PBUF 


55R4 


PBUFi 


55BR 


PCR 


578B 


PDOTQ 


4D6E 


PEMIT 


5759 


PFR 


4B63 


PFIN1 


4480 


PFIN2 


4488 


PFIN3 


44RS 


PFIN4 


44R7 


PFIN5 


44RD 


PFIN6 


4496 


PFIND 


447D 


PKEY 


576B 


PKEY1 


57BE 


PLINE 


5446 


PLOOP 


5B5E 


PLUS 


46DC 


PM 


5318 


PM1 


5322 


PNUM1 


4F49 


PNUK2 


4F85 


PNUM3 


4F7F 


PNUMB 


4F47 


PORIG 


490B 


POSN 


550F 


PQ010 


577C 


PQ020 


5785 


PQTER 


5776 


PREV 


558D 


PSCOD 


4C95 


PSTOR 


4785 


PTRT 


54B8 



PTSTO 


S4CB 


QCOMP 


4BA5 


QCSP 


4BE7 


QERR 


4B9B 


QERR1 


4B99 


QERR2 


4B9B 


QEXEC 


4BBD 


QLOAD 


4C04 


QPAIR 


4BD4 


QSTflC 


513C 


QTERM 


452A 


QUERY 


4E36 


QUES 


59FC 


QUIT 


523C 


QUIT1 


5246 


QUIT2 


525D 


RBRAC 


4C42 


RELEAS 


0001 


REPEA 


58AD 


REOISI 


0000 


REWIND 


54E1 


RNUM 


49E8 


ROT 


4AC4 


RPAT 


463B 


RPP 


4378 


RPSTO 


4643 


RR 


46B0 


RSLW 


S6C0 


RSLW1 


56DC 


RSLW2 


S6E4 


RTS 


00A0 


RZERO 


4923 


SCR 


498A 


5CSP 


4B78 


SELEC 


54F3 


SEMI 


4838 


SEMI1 


4CB5 


SEMIC 


4CAB 


SEMIS 


465B 


SIGN 


5955 


SIGN1 


5965 


SLASH 


53E4 


SLMOD 


53D4 


SMUDG 


4C57 


SPACE 


4AD4 


SPACS 


5910 


SPAT 


460F 


SPAX1 


5926 


SPAX2 


5920 


SPSTO 


461E 


SSLA 


5415 


SSMOD 


5404 


SSUB 


4A4F 


STAR 


53C5 


STATE 


49BB 


STOD 


5304 


STOD1 


5310 


STORE 


47E1 



SUBB 


4ASA 


SWAP 


475C 


S2ER0 


491A 


TASK 


5B5A 


TAT 


47C7 


TDUP 


4777 


THEN 


582A 


THREE 


48BA 


TIB 


492D 


TICK 


579S 


TOGGL 


479C 


TOR 


4686 


TRAU 


4AFA 


TRAV1 


4AFE 


TRIA1 


5B10 


TRIA2 


5B1E 


TRIAD 


5AF0 


TSTOR 


47FD 


TWO 


48B2 


TWOP 


4A87 


TYPE 


4D0D 


TYPE1 


4D2B 


TYPE2 


4D1D 


TYPE3 


4D2D 


UDOT 


5A09 


ULES1 


4AAC 


ULES2 


4AB0 


ULESS 


4A96 


UNTIL 


5874 


UP 


4376 


UPDAT 


55CD 


US 


0040 


USE 


5582 


USER 


488C 


USLR1 


45A5 


USLA2 


45A7 


USLA3 


45AF 


USLA4 


4SBC 


USLA5 


45C6 


USLA&, 


45C7 


USLA*" 


45CB 


USLflS 


458A 


USRUER 


0000 


USTAR 


4556 


UflR 


487A 


ULIS1 


5A29 


ULIS2 


5A3D 


ULIST 


5A19 


UOCAB 


51D3 


UOCL 


4966 


WARM 


529F 


WARN 


4945 


WHILE 


S8FF 


WIDTH 


4938 


WORD 


4EF6 


WORD1 


4F0A 


W0RD2 


4F0E 


WRM 


526B 



